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cnMMAND DECODER AND SAVEGET HOUTINES - v433 1ACR0.V36 19!02 4-JUN-69 PAGE 1 

i««. COPYRIGHT 1969, DIGITAL EQUIPMENT CORP.i MAYNARD, MASS,»«e 

;THIS SUB-PROGRAM ASSEMBIED l-ilTH SYSTEM PARAMETER PILE - S,MAC<V414) 

XLIST 

LIST 
;THIS SUB-PROGRAM ASSEMBLED k'lTH CONE I GURaT I ON DEPENDENT FEATURE SWITCHES - FT50SB,MAC( 
V003 1 

XLIST 

LIST 
TITLE COMCON - COMMAND DECODPR AND SAVEGET ROUTINES - V433 
SUBTTL /RCC fl3 JUN 69 
XP VC0MCN,433t 

ITHIS MACRO PUTS VERSION NO. IN STORAGE MAP aNO GLOB 



00KaC10 



ENTRY COMCON lALWAYS LOAD COMCON IF LIBRARY SFARCH 
COMCONi 

(CALLED FROM CLOCK ROUTINE WHEN 'COMCNTi IS GREATER THAN 

;AS SET RY TTY SERVICE ROUTI^'E 

!ALL AC'S HAVE BFEN SAVED PY CLOCK CHANNEL 

;TH£ COMMAND DECODER CALLS TTYCOM WHICH SCANS FOR TTY WHICH TYPED 

ITHE COMMAND AND THEN D I SPATCHES (PUSH J ) TO APPROPRIATE 

(COMMAND SETUP ROUTINE OF THF SAME NAME WITH AC'S SET ASi 

i ITEM = JOB NUMBER 

)TAC = BYTE POINTER TO COMMA'^D STRING(SPACE OR CR AFTER COMMAND MAME) 

iDAT = BYTE POINTER TO LAST OUTPUT CHARACTER 

JDEVDAT : ADflRFSS OF DEVICE OATA BLOCK TYPING COMMAND 

;JDAT = ADDRESS OF JOB AREA, c IF NO JlS AREA 

;PROG = ADDRFSS OF PROGRAM AREA, MEANS NOT IN CORE OR NO CORE 

MOS IS SET TO 0, USED FOR ADDRESS OF SUBSEQUENT CALLS 

;DEVOAT IS ALSO PUSHFO ON ENO OF PD LIST SO IT MAY BE DESTROYED, 

;UPON RETURN FROM COMMAND SETUP ROUTINE, A CR-LF IS AODEH TO 

(MESSAGE AND TTY IS STARTED ON TTY SPECIFIED BY -l(POP) 

(SEVERAL COMMAND FLAGS ARE CHECKED BEFORE DISPATCHING TO 

(COMMAND SETUP ROUTINES TO SEE IF COMMAND IS LEGAL AT THIS TIME 

(SEVERAL MORE FLAGS AfiE CHECKED UPON RETURN FROM COMMAND SETUP 

(ROUTINESIUNLESS AN ERROR HAS OCCURRED) FDR STANDARD 

(COMMAND RESPONSE 

(IF AN ERROR OCCURS, THE JOB NO. (ITEM) SHOULD BE ON RETURN 

(SO THAT JOB WILL NOT BE INITIALIZED IF FIRST COMMAND, 

(ERRMES ROUTINE WILL SET ITEM TO 

(SINCE THE COMMAND DECODER IS CALLED FROM THE CLOCK ROUTINF 
(COMMAND SETUP ROUTINE MUST RUM TO COMPLETION OUICKLY 
(IF A COMMAND FUNCTION CANNOT DO THIS, IT MUST JUST SET 
(THE JOB TO RUNABLE STATUS A^'D RETURN IMMEDIATELY 
lOR DELAY THE COMMAND FOR LATER EXECUTION 
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(?000("0 260140 



{"00001 
C100002 
5)00003 
000004 
00C005 
000006 
000007 
000010 
000011 
000012 
?i00013 
P100014 
000015 
000016 
000017 
0000?0 
100021 
000022 
000023 
0000P4 
000025 
000026 



263140 
261140 
260140 
200500 
211540 
242640 
242500 
326500 
201700 
205500 
200612 
630600 
316112 
25412! f>0 
31215'0 
254000 
662700 
664700 
200640 
253530 
306700 
2005^^0 



INTERNAL COMMAND 

INTERNAL rTLOGIN.FTSWAP.FTTIME 

EXTERNAL COMCNT,TTYCOM,JflTSTS,vJOBMAX,JBTDAT,JBTADR,JOBHCU 

EXTERNAL CONFIG, HIGHJB 

FXTERNAL TTYSTR.TTYUSR.TTYATT 

EXTERNAL TTYTAB.PUNIT.TTYATI 

EXTERNAL ADRERR.ANYACT,ASSASG,CORE0iDAMESS,OEVLG,DEVPHY,nEVSRC 

EXTERNAL OLYC0M,ERNAM,ESTOP,PETWDl,GETWDU,KST0PiC0REl,><ONJOe,DECPl 

FXTERNAL MONSTR.MSTART,OCTPNT,PHOLD,PRNAME,RADX10,RELEA5 

FXTERNAL RELEA6, RESET, SETRUN.STQPl 

FXTERNAL STQTAC, UPT I ME , USRX |T , USTART , UUOERR 



000012 
000013 
000014 
000015 

000016 
000000 

000000 

000006 

001721' 

000002 

000001 

777772 

000006 

000006 ' 

000000 

777721 

000232 ' 

000013 

000232' 

000027 ' 

1. 4 

000024 • 

0000^1 

000002 

000012 

000013' 

000001 

000015 



T=BUFPNT ;TEMPORARY AC'S 

T1=BUFWRD 

T2=UU0 

T3=AC1 

T4=AC2 

COMMANDIPUSHJ PDP.TTYCOM 



COM0! POPj POP, 

PUSH PnP.DEVDAT 

PUSHJ POP,CTFXT 

MOVE T.TACl 

MOVNl Tl,l 

LSH Tl,-6 

LSH T,6 

JUMPM T, .-2 

MOVE! T4,0 

MOVSI T,-D1SPL 
COMLP! MOVE T2,C0MTi>B(T) 

TDZ TZ.Tl 

CAMIv TAC1,CDMTAB(T> 

JRST COMFND 

CAME T4C1.T2 

JRST COMKjEO 

TROE T4,l 

TROA T4,2 

MOVE T3.T 
COMNEQ! AQOJM T, COMLP 

CAIN T4,l 

MOVE T,T3 



ISETUP 
I FOR A 
INONE F 
ISAVF T 
ISCAN C 
ICOPY C 
(SET MA 
ICLEAR 
ISHIFT 
(IF NOT 
ICLEAR 
ISEARCH 
IGFT NE 
IMASK 
lEXACT 
)YES, T 
IMATCH? 
INOT EV 
IM4TCHE 
INO, SF 
lYFSi C 
INO, KE 
lOID ON 
lYFS, G 



DEVDATiDAT.TAC.AND ITEM 

NY TTY WHICH HAS TYPEn A COMMAND 

OUND 

TY DEVICE DATA BLOCK ADDRESS 

OMMAND NAME, RETURN IT IN TACl 

OMMANO, 

SK ALL ONES 

OUT ONE MORE CHAR, 

1 COMMAND CHAR OFF 

END OF COMMAND. GO AROUND 
FLAG REGISTER 

COMMAND TABLE FOR MATCH 
XT ENTRY FROM COMMAND TABLE 
UT CHAR 5 
MATCH? 
HIS IS IT. 

E^' GOOD MASK 

S MASKED, IS THIS Flr^T Qvf; 

T 2ND OCCUR FLAG 

OPY CURRENT INDEX 

EP LOOKING 

E AND ONLY ONE COi'MA'.T "A^C-i? 

FT ITS INDEX 
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91 
92 
93 

9« 

95 

96 
97 
98 
99 

100 
171 
1(52 
11^3 
1(14 
105 
1!56 
15!7 
1518 

1519 
110 
111 
112 



113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 



f 00027 
000030 
000031 

000032 
C00033 
("0R03 4 
000035 
000036 
000037 
000040 

000041 
000042 
("00043 
000044 
000045 
000046 
000047 

("00050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 



f000 

0000 
0000 



0000 
0000 



200112 
261140 
2005rM 

607500 
6031^10 
2540(10 
265040 
462370 
202411 
516121 

326200 
603100 
254000 
201200 
200504 
60750ti 
254000 

305200 
3 4 4 21/0 
265040 
452370 
406410 
522624 
416130 
420321 



201540 
436546 
402006 



402004 
4020014 



000311' 

000002 

000000 

000004 

100000 

000041' 

000134' 

744634 

442602 

505000 

000070' 

200000 

000137' 

000001 

000031' 

240000 

000060' 

000000 

000045' 

000134' 

220206 

141622 

042660 

542212 

200000 



4000C10 
00001^4 
000005 



000000 
000000 



["00065 402004 000000 



COMFNUl MOVE TACl,niSP(T) 
PUSH pnP.TAC) 
''OVE T, JFITSTSl ITEM) 
IFN FTLOGIN,< 

TUNN T.JLOG 

TLNE TaCI.NOLOGIN 

JRST CHKNO 

jSP TACrOME" 

ASCI? /LOGIN PLEASE 



;GET DISPATCH TARLE ENTRY, 
ISAVF RHfDISPATCH AQR.tSITS) 
IJGB STATUS WORD FOR THIS JO" 



) IS JOB LOGGED IN? 

INO, 

lYES 



iNO, 



CAN COMMAND PROCEED »(ITH NO LOGIN? 
TYPE "LOGIN PLEASE" 



/ 
> 

CHKNO! JUMPN ITeM.CHKRUN 

TLNE TACl.NOJOBN 

JRST COMGO 

MOVEI ITFM.l 
NUMLOPi MOVE T, JflTSTS( ITEM) 

TLNN T.JNA+CMWn 

JRST NEWJOB 



IJOS NUMBER ALREADY ASSIGNED? 

INO. DOES THIS COMMAND NEED A JOB NUMBER? 

INO 

lYES, SC4N FOR ONE STARTING WITH 1 

ISOAN FOR FREE JOB NO. 

ITHIS NUMBER ASSIGNED? 

INO, SO USE THIS NUMBER 



CAIGE ITEM.JOBMAX (YES. IS THE MAX, JOB NO,? 

AOJA ITEM.NUMLOP INO. KEEP LOOKING 

JSP TAC. COMER lYFS. NONE LEFT, PRINT "JOB CAPACITY EXCf:eDED" 

ASCI? /JOB CAPACITY EXCEEDED 



I EVEN THOUGH THIS IS A NEW JOB NUMBER 

I IT MAY HAVE CORE ASSIGNED NOW BECAUSE IT WAS OElAYEI 



NEWJOB! MOVEI Tl.ASSCON 

lORM Tl.OEVMOD(DEVDAT) 
SETZM nEVLOG<DEVnAT) 



IFN 



> 

IFN 



000066 
000067 



313200 
2022:^0 



000000 
000066' 



FTTIME.< 

SETHM RTIME( ITEM) 
SETHM TTIMF(TTFM) 

FTKCT,< 

EXTERN JRTKCT 
SETHM JBTKCT(ITEM) 



CAMLE ITEM.HIGHJB 
MOVEM ITFM.HIGHJP 



I UNTIL IT COULD 3E SWAPPED !N(LOGIN WIT, CORE FlLl) 

ISET ASSIGNED PY CONSOLE BIT rnR TTy 

ISO OTHER JOBS CAN NOT USE 

ISET LOGIC'L NAME TO EERO 

1 "TTY" IS PUBLIC LOGICAL NAME 

ICLEAR INCREMENTAL JOB RUNNING TIME 
ICLEAR TOTAL JOB RUNNING TIME 



ICLEAR CORE-RUNNING TIME PRODUCT CODE 



•HIGHEST JOS NUMBER ASSIGNED? 

lYES.SAvE IT FOR SCHEDULER SCAN OF JOBS 



COMCON - COMMAND DECODER AND SAVEGET ROUTINES - V433 MACHO. V36 19102 4-JUN-69 PAGE 16 
/■RCC 03 JUN 69 

IRUN BIT ON IN JOB STATUS? 

lYES. DOES THIS COMMAND REQUIRE A JOB? 

I NO 

lYCS. 

FIRST 



134 


000070 


603502 


400000 


CHKRUNI 


TLNE T.RUN 


135 


000071 


607100 


010000 






TLNN TACl.NORUN 


136 


000072 


254000 


000101' 






JRST CHKACT 


137 


000073 


265040 


000134' 






JSP TAC, COMER 


138 


000074 
000075 
000076 
000077 


502310 
425012 
425013 
432232 


540646 

454640 
641500 
251650 






ASCIZ /PLEASE TYPE » 


139 


000100 


064240 


000000 


/ 






140 














141 


000101 






CHKACTi 




142 














143 








IFN 


PH0G-JDAT,< 


144 












MOVE JDAT, JBTDAT(ITEM) 


145 








> 






146 


000101 


200344 


000000 






MOVE PROG.JBTADRdTEM) 


147 








IFN 


FTSWAP,< 


148 


000102 


603100 


024000 






TLNE TACl. INCORINOTRAN 


149 














150 














151 


000103 


607500 


002000 






TLNN T.SWP 


152 


000104 


254000 


000113' 






JRST CHKC02 


153 


000105 


607100 


004000 






TLNN TACl.INCOR 


154 


000106 


322340 


000113' 






JUMPF PR0GiCHKC02 


155 














156 














157 














158 


000107 


541100 


001676' 






HRRI TACl.DLVCM 


159 














160 


000110 


607100 


004000 






TLNN TACl.INCOR 


161 








CHKDLY: 


MRRI TACl.DLYCMl 


162 


000111 


541100 


001677' 


D 






163 


000112 


254000 


000143' 






JRST COMDIS 


164 








> 






165 


000113 


603100 


040000 


CHKC021 


TLNE TACl.NOACT 


166 


000114 


260140 


001665' 






PUSHJ PDP.RUNCMK 


167 


000115 


603100 


400000 


CHKCOli 


TLNE TACl.NOCORE 


168 


000116 


2540H0 


000137' 






JRST COMGO 


169 


000117 


326340 


000125' 






JUNPN prog.chkxpn 


170 


000120 


255040 


003134' 






JSP TAC. COMER 


171 


000121 
000122 
PI00123 


472364 
512124 
51623Z 


041636 
040646 
747212 






ASCI? /Nn CORE A5S!G»'E 


172 


000124 


420321 


200000 


/ 







lADDRESS OF JOB DATA AREA 

IXWD PROTECTION, RELOCATION 

(MUST JOB NOT BE SWAPPING OR 

I IF JOB HAS CORE ASSIGNED, MUST IT BE 

J IN PHYSICAL CORE (RATHFR THAN DISK OR ON ITS WAY) 

lYES. IS JOB ON DISK OR ON ITS WAY? 

I NO 

lYES. MUST JOB BE IN CORE? 

INO, IS A SWAP FOR THIS JOB IN PROGRESS? 

I NO. SO COMMAND MUST BE DELAYED 

I (EITHER BECAUSE SWAP IN PROGRESS OR 

I JOB ON DISK AND MUST BE IN PHY CORF) 

(ASSUME JOB MUST BE IN PHY CORE 

( SO SET TO SWAP JOB IN 

(IS THIS TRUE? 

(NO. JUST DELAY COMMAND UNTIL SWAP OUT 0^ IN IS FINISHE 

lANO DISPATCH TO DELAY COMMAND 

(CAN COMMAND BE PERFORMED WITH ACTIVE DEVICES? 

INO. RETURN IF JOB STOPPED AND NO ACTIVE DEVICES 

(DOES THIS COMMAND NEED CORE? 

(NO. GO DISPATCH 

(YES. IS CORE IN MEMORY? 

(NO, PRINT "NO CORE ASSIGNED" 
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173 


:'00125 


607100 


?0raj!4 


CKKXPNl 


'.v'>. TACi,p_;xp^ 


174 


j:e0l"f 


?54000 


000137' 




jRET COMGO 


175 
176 


700127 


574007 


000000 




HLRE IOS,JOBhCu(jO'T) 


177 


000130 


345000 


000137' 




AOJGE lOS. COMGO 


178 












179 












180 


000131 


260140 


002602' 




PUSHJ PDP. EXPAND 


181 


000132 


255000 


000000 




JFCL 


lfl2 








IFN rTSWAP.< 


183 


000133 


254000 


000111' 




JRST CHKOLV 


184 












185 








> 




186 












187 








IFE FTSHAP,< 


188 










HRRl TACl.DLYCMl 


189 










JRST COMDIS 


190 








> 




191 












192 


000134 


205100 


000400 


COMER! 


MOVSI TAClrNOlNCK 


193 


000135 


202103 


000000 




MOVEM TAC1,(PDP) 


194 
195 


000136 


201100 


000433' 




MOVEI TACl.CERR 


196 


000137 


205000 


002000 


COMGO! 


MOVSI lOS.CMWRS 


197 


000140 


627500 


200000 




TLZN TiCMWB 


198 


000141 


412003 


000000 




ANDCAM IOS,<POP) 


199 

200 
201 


000142 


2025«)4 


000045' 




MOVEM T, JBTSTS(ITE^) 












202 


000143 


201000 


000000 


COMDIS! 


MOVEI IOS.0 


203 


000144 


260142 


000000 




PUSHJ PDP.<TACl) 



iDOES This ccmmamd need core to be expanhed? 

ino 

lyes, is core still compressed ( save did mot go 

1 to completion) 

!lh=-2 during save, when core compressed 

1lh:-1 during save of high sfg. or get of low 

1 or high seg 

lyes. expand core first 

iignorf address check error, we tried 

idelay command because command decoder acs are 
i all gone, next time jobhcu will be 



IDELAY COMMAND TILL NEXT CLOCK TICK 



ICALL ERROR MESSAGE ROUTINE 



ICLEAR CMWBi WAS JOB IN COMM WAIT 
INO. CLEAR REQUEU SIT IN DISP. FLAGS 



ICLEAR lOS FOR SETTING DISPATCH ADDRESSE": 
IDISPATCH TO COMMAND SETUP ROUTINE. 
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IRESTORE COMMAND FLAGS 
IRESTORE TTY DOB ADDRESS. 



25)4 








;RE' 


TURN 


FROM COMMAND SETUP RPU 


2?i5 














206 


000145 


262140 


000013 


COMRETl 


POP PDP.Tl 


207 


000146 


262140 


000006 






POP PDP.DEVDAT 


208 








IFN 


FTTTYSER,< 


209 












EXTERN TITAKR.TISYNC 


210 


000147 


135406 


000000 






LDB TEM.TITAKRIDEV 


211 


000150 


260140 


000222' 






PUSHJ PDP.SKPBRK 


212 


000151 


370006 


000000 






SOS TISYNC(DEVDAT) 


213 








> 






214 


000152 


205500 


400000 






MOVSI T, 400000 


215 


000153 


135040 


000000 






LOe TAC.PUNIT 


216 


000154 


412501 


000000 






ANOCAM T.TTYTaBITAC) 


217 


000155 


370000 


000000 






SOS COMCNT 


218 


000156 


326200 


000161' 






JUMPN ITEMiCOMRTl 


219 


000157 


607540 


200000 






TLNN TlfNOJOBN 


220 
221 
222 


000160 


205540 


002401 






MOVSI T1,N01NCK*ERRFLG 














2?3 


000161 


200504 


000142' 


COMRTl! 


MOVE T.JBTSTSdTEM) 


224 


000162 


607540 


000400 






TLNN TliNOlNCK 


225 


000163 


6635?I0 


040000 






TLOE T.JNA 


2?6 


000164 


254000 


000200' 






JRST PCRlF 


2?7 


000165 


202504 


000161' 






MOVEM T.JBTSTSdTEM) 


2?a 


000166 


250140 


000000 






PUSHJ POP,TTYATI 


229 


000167 


P55070 


000000 






JFCL 


230 


000170 


260140 


002025' 






PUSHJ PGP. INLMES 


231 


000171 


452370 


220000 






ASCI? /jns / 


232 


000172 


200040 


000004 






MOVE TACITEM 


233 


000173 


260140 


000000 






PUSHJ PDP.RAOX10 


234 


000174 


260140 


002032' 






PUSHJ PDP.PRSPC 


235 


000175 


2B1040 


003000 






MOVEI TAC, CONFIG 


236 


000176 


260140 


002017' 






PUSHJ PDP.CONMES 


237 








ITN 


FTlOGIN, < 


238 


000177 


2601'>0 


002016' 






PUSHJ pdp.crlf 


239 








> 






240 








!FE 


FTLORIN, < 


241 












PUSHJ PDP.PRSPC 


242 












PySHJ POP.OAYTMl 


243 








> 







a) JGET BREAK CHARACTER 
ISKIP TO BREAK CHAR 
IREDUCE LINE COUNT 



lyes, turn off sign bit 

loid an error occurj 
ii. e.. item = and nojobne0? 
;mwrq )yes. print errop message only, and 

I REQUEUE JOn IF necessary. 

IJOB status WORD 

(SUPPRESS JO? INIT, CHECK? 

INO, IS JOB INIT BIT ALREADY SET? 

lYES. 

INO. SO SET IT THIS COMMAND 

lATTACH TTY TO JOB 

I IGNORE IF CAN NOTISHOULD NEVER HAPPEN) 

lAND PRINT "JOB " 

IPRINT JOB NUMBER 

IPRINT SYSTE*" CO^JFIGURATION NAME 



COMCON 



244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
25B 
259 
2613 
261 
262 

263 

264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
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PI002P0 
PBf12Cl 
f!002O2 
(i!002l»i3 
000204 
000205 
000206 
000207 

000210 
000211 
000212 
000213 
000214 



000215 
000216 
000217 



000224 
000225 
000226 
000227 
000230 
000231 



603540 
260140 
607540 
260140 
607540 
260140 
322200 
603540 

260140 
603540 
260140 
607540 
260140 



000001 

002030' 

000200 

002016' 

003100 

002041' 

000213' 

000040 

000000 
000020 
000000 
000010 
000000 



PCRLFl 



PCRLFll 



IFN 



TLNE TI.ERRFLG 
PUSHJ PDPiPROM 
TLNN T1,NQCRlE 
PUSHJ PDp.CRlF 
TUNN Tl.MOPER 
PUSHJ PDP.PRPER 
JUMPE ITEMiPCRLFI 
TLNE Tl.TTYRNU 

PUSHJ PDP.TTYUSR 
TLNE Tl.TTVRMC 
PUSHJ PDP.SETRUN 
TLNN TliNOMESS 
PUSHJ PDP.TTYSTR 
FTSWAP, < 



135200 000000 
322200 000000 
603540 002000 



EXTERN 
LDB 
JUMPE 
TLNE 



PJOBNfREOUE 
ITEM.PJOBN 
ITEM.CPOPJ 
TliCMWRO 



000220 254000 000000 



IDI 
(YE 
iSU 
(NO 
ISU 
INO 
IJO 

I jn 
I c 
(YE 
INO 
lYE 
(IS 
lYE 



D AN ERROR OCCUR? 
S. APPEND 7 
PRESS CRLF7 

PRESS PRINTING PERIOD? 

B DOES NOT RUN IF ERROR 00 NO JOB NO, ASSIJGNED 
B TO RUN WHEN TTY FINISHE" TYPING? 
OMMANO RESPONSE <TTY TO USER MQDE)? 
Si CALL SCANNER ROUTINE 

JOB TO RUN AND REMAIN IN MONITOR MQ'^E? 
S. CALL SCANNER ROUTINE 

THERE A MESSAGE? 
S, START TTY TYPING IT OUT 



JRST REOUE 
000221 263140 000000 POPJ POP, 

IFN FTTTYSER,< EXTERN gPCHEK , TI TAKR .GETCHR , TPOP J 



IGET JOB NUMBER FROM TTY DEVICE DATA BLOfTK 
IREQUEUE JOB AFTER COMMAND WAIT OR ERROR? 
lYES 



000222 261140 000001 SKPBRK! PUSH 



POP.TAC 



000223 260140 000000 SKPBR2! PUSHJ POPiSPCHEK 



254000 
603040 
254000 
260140 
326400 
254000 



000227' 

000000 

000000 

000000 

000223 ' 

000226' 



SKPBRl! 



JRST 

TLNE 

JRST 

PUSHJ 

JUMPN 

JRST 



SKPBRl 

TAC.BREAKB 

TPQPJ 

PDP.GETCHR 

TEM,SKPBR2 

TPOPJ 



I IS THIS CHAR THE BREAK? 
lYES. RESTORE TACi RETURN 

ILOOK FURTHER FOR BREAK 
lUNLESS NO MORF CHARS 
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"^ ITABlE or CONSOLE COMMANDS 



3fli5 
307 
32)8 
309 



315 



INTERNAL FTATTACH . FTT 1 ME , FTTALK , FTEXAM INE . FTLOCl N, FTREASS IGN 



2S0 _ _ 

281 INTERNAL FTFINISHiFTCCL 

III 'BITS CHECKED BEFORE DISPATCHING TO COMMAND SETUP ROUTINE 

2«5 400000 NOCORE=400000 jNO CORE NEEDED FOR COMMAND 

il° 200000 NOJOBN=20B000 ,N0 JOB NUMBER NEEDED FOR COMMAND 

III 100000 NOLOGIN=100000 iJOB DOES NOT NEFO TO BE ALREADY LOGGED IN. 

ill \%^Al\ NOACT = 40000 (COMMAND MUST BE DELAYED IF JOB HAS ACTIVE DEVICES. 

2" 020000 NOTRAN=20000 (COMMAND MUST PE DELAYED IF SWAPPING TRANiFERN PROGRESS 

l\\ ^l^^fl^ NORUNn0000 IAN EXPLICIT fC MUST BE TYPED BY USER BEFORE COMMAND 

,0, I IS EXECUTED IF JOB IS RUNNING 

293 ^a,<.aa.a ,K,r.n= .»,™ ' ^f"^ ''^^^ ^^ SWAPPED IN IF IT HAS LOGICAL CORE 

IV' 004000 INCOR = 4000 (USED ONLY BY COMMAND DISPATCH 

,„ „,,„ „ i DOES NOT APPEAR IN COMMAND TABLE 

2'= 024000 INCORE=4000.MOTRAN (COMMAND MUST BE DELAYED IF JOB HAS LOGICAL CORE 

,'; ' WHICH IS ON DISK OR ON ITS WAY IN OR OUT. 

,oH ' -JOf "^Il-L BE SWAPPED IN (SEE DLYCOM) 

299 dfloin™^ o, =vnM . '.il!!° '^ '^°^ SITTING QUIETLY IN COREdE NO SWAPPING TRAN-^FER) 

VZ ezneeA plsxpn==4 ,core must rt expanded if still compressfo by save not going 
^"!: i TO caMPLETiON{coNTROL r. OR device ok?) 

--- > ^'UST be used in conjunction with COMMANDS WHICH 

i NEED CORE AND NEED IT IN CORE 



302 
303 
304 

^11 'BITS CHECKED AFTER RETURN FROM COMMAND SETUP ROUTINE 



002000 


CMWRQ=2000 


001000 


NOn4TE=1000 


000400 


NOINCK=400 


000200 


NQCRlF=200 


000100 


NOPER=100 


000040 


TTYRNU=40 


000020 


TTYRMC=20 


000010 


NOMESS=10 



(REQUEUE JOB AFTER COMMAND WAIT 

(DON'T PRINT DATE DURING JOB INTERROGATION 



^"' ^SS^^^ NOINCK=400 (NO CHECK FOR JDP INITIALIZATION {JNA=0) 

310 000200 NQCRLF=200 (NO PRINTING OF CRLF 

311 000100 NOPER=100 (NO PRINTING OF PERIOD 
^J2 000040 TTYRNU=40 (SET TTY TO USER MODE AND START JOB 
^it „ ! WHEN COMMAND RESPONSE STOPS TYPING 
1^2, 000020 TTYRMC = 20 (KEEP TTY IN COMMAND MODE AND START JOB 



WHEN COMMAND RESPONSE STOPS TYPING 



^1* 000010 NOMESS=10 (NO COMMAND RESPONSE EVER, 00 NOT CALL TTYSTR 

jj^ i4 TAKEN ABOVE BY 'PLSXPN' BIT 

320 

221 000001 ERRFLGrl (COMHAMD ERROR 
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322 DEFINE NAMES< 

323 C START, START. NOPERITTYRNU! INCORE|NOACT!NORUN 

324 C HALT, STOP. NOCOREINdJOBNINOLOGININOINCKJCMWRQ 

325 C KjaB,KjOB,NOCORE!NnjOBN!NOINCK!NOLOGIN!NOACT!NORUN!NOPER!NOCRLFlNOMESS!NOTRAN 

326 

327 C <>,CBLANK,N0C0RE!NOJOBN|N0L0GIN|N0INCK!N0CRLF 

328 C R,RCOM,NOCORE1NOPERITTYRNU!NOCRUFINOACT!NORUNINOTRAN 

329 C RUN,RUNCOM,NOCORE!NOPER1TTYRNU!NOCRIF!NOACT!NORUN!NOTRAN 

330 C CORE, CORE, NOCOREINCRUNICMWRQtlNCQRElNOACTINOTRAN 

331 C GET,GET,N0CRLF!N0PFR!TTYRNC1N0C0RE!N0ACTIN0RUN!N0TRAN 

332 C SAVE, SAVE, NOCRLF!NOPER!TTYRNC!INCORE!NOACT!NORIJN1PLSXPN 

333 IFN FT2RFL,< 

334 r. SSAVE,SSAVE.NOCRLF!NOPER!TTYRNC:INCORE!NOACT!NORUN!PLSXPN 

335 > 

336 C CONTINUE, CONT,NOPER|TTYRNU!INCOREINORUN 

337 IFN FTEXAM1NE,< 

33B C n,DCOM,CMWRQ!INC0RE 

339 C F,FC0H,NOCRLF!CMWROIINC0RE 

340 > 

341 C PJOB.PJOB.NOCORE 

342 r, ASSIGN, ASSIGN, NOCOPE 

343 C OE*SSI,DEASSIGN,NOCORE!NOJOBN!NOINCK 

,344 C DDT, OOTGO. NOPERITTYRNU! INCOREINORUNjPLSXPN 

345 IFN FTFIMSH,< 

346 c FINISH, cfini,ttyrncinoact;incore!norun 

347 > 

348 C REENTER.REENTER,TTYRNU!N0PER! INCORFSNORUNJPUSXPN 

349 C CSTART.STARTCTTYRmC! [NCOREINOACTINORUNIPLSXPN 

350 C CC0NT1nUE,C0NTC,TTYRNC!INC0RE!N0RUN 

351 IFN FTATTACH.< 

352 C DETACH, DETACH, NOPEt>*NOCRLF*NOCORE!NOJOBNINOINCK 

353 C ATTACH, ATTACH, NOCOREINOJOBNINOLOGININOINCK 

354 > 

355 C DAYTIME, DAYTIM,NOCORE!NOJOBN!NOLOGIN!NOINCK 

356 IFN FTTIME,< 

357 C TIME.RUNTIM.NOCOREINOLOGININOINCK 

358 > 

359 C RESOURCES, FREDEV.NncOREINOJOBNINOLOGIN'.NOINCK 
3«a IFN FTLOGIN,< 

361 r. SCHEDULE, SKEDUL.N0r0RE!N0jOBN!NOL.OGIN!NOINCK 

362 > 

363 IFN FTTALK,< 

364 c talk,talk,nqcrlf*n'iper*nocoreinojobn!nologin;nomess:noinck 

365 > 

366 IFN FTL0GIN,< 

367 rL0GIN,CL0GIN,NOC0RFIN0L0GIN!N0P£R!TTYRNU!N0CRLF!N0ACT!N0RUN!N0TRAN 

368 > 

369 IFE FTL0G1N,< 

370 C LOGIN, CP0PJ,N0rORE!N0ACTIN0RUN!N0TRAN 

371 > 

372 IFN FTREASSIGN,< 

373 C REASSI.REASS.NOCORFINOACT! INCORE!CMWRQ!NORUN 

374 > 
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/RCC 03 JUN 69 

III C HELPiHEUP.N0CORE!NOLOG1N!N0PER!TTYRNU!NOCRLF!N0ACT!NORUN!NOTRan 

::,, f- SYSTAT,SySTAT,NOCORE!NOUOGIN!NOACT!NORUN!NOCRLr!NOPER!TTVRNU!NnTRAN 

J'' IFN FTCCLi< 

"? C C0MPILE:,CCLRUN,NOC0RE!N0PER|TTyRNU!N0CRLFMNCCREIN0ACT!N0RUN 

"' C t:REATE,CCLRUN,NOC0RE!N0PER!TTYRNUIN0CRLF!INCORE!NOACT!NORUN 

^"■' C CRFF.CCI.RUN.NOCORE1NOPER!TTYRNU|NOCRLF! INCORE ! NOACTj NORUN 

^11 C OEBUG.CCLRUN.NOCOREINOPERSTTYRNUINOCRLFI INCORE ! NOACT ! NORUN 

i2i ''- "EiLETE.CCLRUN.NOCOOElNOPERlTTYRNUINOCRLFMNCOREjNOACTlNORUN 

ilj C DIRECT, CCLRUN,NOCOREINOPER!TTYftNUINOCRLFI INCORE ! NOACT ! NORUN 

C EDIT.CCLRUN,NOCORE!NOPERITTYRnu|NOCRLF!INCORE!NOACT;nORUN 



3a4 



i"l C FXFCUTE.CCLRUN,NOCOREINOPER|TTYRNUINOCRL.F| INCOREINOACTJNORUN 

il^ f- LIST,CCLRUN,NOCORE!NOPER!TTYRnU!NOCRLF!INCORE|NOACT!NORUN 

i^l C L0AD.CCLRUN.N0C0RE!N0PFR!TTYRNU!N0CRLF! INCORFINOACTiNORUN 

^^l C MAKE.CCLRUN,NOCDRE!NOPFR!TTYRnUINO(;RLF!INCOREINOACT!NORUN 

i2l ^ RENAME, CCLRUN,N0C0REIN0PER!TTYRNU!N0CRLFI INCORE ! NOACT ; NQRUN 

,'f f^ TEC0.CCLRUN,N0C0RE!N0PFRITTYRnU!N0CRLF!INC0RE!N04CT!M0RUN 

:5'J (^ TYPE.CCLRUN,NOCORE!NOPERITTYRNU!NOCRLFHNCORE!NOACT!NORUN 

3,3 C CTEST, CCLRUN,N0C0RE!N0PER!TTYRNU!N0CRLF 11 NCORE! NOACT! NORUN 

394 > 
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395 








igenehate: table 


OF SIXBIT COI 


396 












397 








DEFINE CtA.B.O) 


< 


398 








<SIXBIT 


/A/> 


399 








> 




400 












401 


000232 






COMTABI NAMESf 




402 


000232 


636441 


626400 


<SIXBIT 


/START/> 


403 


000233 


504154 


640000 


<SIXBIT 


/HALT/> 


404 


000234 


535257 


420000 


<SIXBIT 


/KJOB/> 


405 


000235 


000000 


000000 


<SIXBIT 


//> 


406 


000236 


620000 


000000 


<SIXBIT 


/R/> 


407 


000237 


626556 


000000 


<S1XRIT 


/RUN/> 


408 


000240 


435762 


450000 


<SIXBIT 


/CORE/> 


409 


000241 


474564 


000000 


<SIXRIT 


/GET/> 


410 


000242 


634166 


450000 


<SIXBIT 


/SAVE/'> 


411 


000243 


636341 


664500 


<SIXBIT 


/SSAVE/> 


412 


000244 


435756 


645156 


<SIXRIT 


/CONTINUE/> 


413 


000245 


440000 


000000 


<SIXBIT 


/D/> 


414 


000246 


450000 


000000 


<S1XR1T 


/E/> 


415 


000247 


605257 


420000 


<SIXBIT 


/PJOB/> 


416 


000250 


416363 


514756 


<SIXBIT 


/ASSIGN/> 


417 


000251 


444541 


636351 


<S1XBIT 


/'OEASSl/> 


418 


000252 


444464 


000000 


<SIXHIT 


/DOT/> 


419 


000253 


465156 


516350 


<S!XRIT 


/FINISH/> 


420 


000254 


624545 


566445 


<SIXRIT 


/REENTER/> 


421 


000255 


436364 


416264 


<S!XBIT 


/CSTART/> 


422 


000256 


434357 


566451 


<SIXBIT 


/CCONTINUE/> 


423 


000257 


444564 


414350 


<S1XPIT 


/DETACH/> 


424 


000260 


416464 


414350 


<SIXBIT 


/ATTACM/> 


425 


000261 


444171 


645155 


<SIXBIT 


/DAYTIME/> 


426 


000262 


645155 


450000 


<StXBIT 


/TIME/> 


427 


000263 


624563 


576562 


<S1XRIT 


/RESOURCES/> 


428 


000264 


634350 


454465 


<S1XBIT 


/SCHFOUUF/> 


429 


000265 


644154 


530000 


<S1XBIT 


/TALK/> 


430 


000266 


545747 


515600 


<SIXPIT 


/LOGlN/> 


431 


000267 


624541 


636351 


<SIXBIT 


/REASSl/> 


432 


000270 


504554 


600000 


<SIXRIT 


/HFLP/> 


433 


000271 


637163 


644164 


<S1XBIT 


/SYSfAT/> 


434 


000272 


435755 


605154 


<S1XRIT 


/COMPlL£/> 


435 


000273 


436245 


416445 


<S1XRIT 


/CREATE/'> 


436 


000274 


436245 


460000 


<SIXBIT 


/CREF/> 


437 


000275 


444542 


654700 


<SIXBIT 


/DEBUG/> 


438 


000276 


444554 


456445 


<S1XB1T 


/DELFTE/> 


439 


000277 


445162 


454364 


<S1XRIT 


/QIRFCT/> 


440 


000300 


454451 


640000 


<SlXniT 


/EniT/> 


441 


000301 


457045 


436564 


<SIXRIT 


/EXECUTE/> 


442 


000302 


545163 


640000 


<SIXBIT 


/LIST/> 


443 


000303 


545741 


440000 


<SIXR1T 


/LOAD/> 


444 


000304 


554153 


450000 


<SIXR1T 


/'ftAKF/> 


445 


000305 


624556 


415545 


<SIXRIT 


/RENAME/> 


446 


000306 


644543 


570000 


<SIXBIT 


/TFCO/> 


447 


000307 


647160 


450000 


<SIXBIT 


/'TYPE/> 
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448 tiaasiB 436445 636400 <SlXBIT /CTZST/> 

*"' 000057 DISPL'.-COMTAB (LENGTH OF TABLE 



COMCON 



-♦SB 
451 
452 
453 
454 
455 
456 
457 
458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 

4aei 

4B1 
4fi2 
483 
484 
485 
4B6 
487 
4S8 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
5H0 
501 
502 
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/HCC 03 JUN 69 

IGENEHATE THE DISPATCH TABLE PLUS SPECIAL BITS 



000311 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000320 
000321 
000322 
000323 
000324 
000325 

^00326 

000327 

000330 

000331 

000332 

000333 

000334 

000335 

000336 

000337 

000340 

000341 

000342 

000343 

000344 

000345 

000346 

000347 

000350 

000351 

(?00352 

000353 

000354 

000355 

000356 

000357 

000360 

000361 

000362 

000363 

000364 

000365 

000366 

000367 



074140 
702400 
770710 
700600 
470340 
470340 
476000 
470320 
074324 
074324 
03414B 
026000 
026200 

400000 

400000 

600400 

034144 

074020 

034144 

074024 

034020 

600700 

700400 

700400 

500400 

700400 

700400 

700710 

570340 

476000 

570340 

570340 

474340 

474340 

474340 

474340 

474340 

474340 

474340 

474340 

474340 

474340 

474340 

474340 

474340 

474340 

474340 



000436' 
000454' 
000410' 
001570' 
000617' 
000625' 
000473' 
0005S6' 
000531' 
000532' 
000463' 
001504' 
001453' 



DEFINE 

? 

> 

OISP! 

i 
i 

z 

H 

? 

^ 

7. 

H 



C<A,B.D) 



< 

(D) 



000405' ? 

000633' H 

000757' 

000446' 

001574' 

000444' 

000436' 

000463' 

001247' Z 

001136' H 

001312' 

001350' 

001624' 

001555' 

001432' 

000600' 

001015' 

000554' 

000557' 

000570' 

000570' 

000570' 

000570' 

000570' 

000570' 

000570' 

000570' 

000570' 

000570' 

000570' 

300570' 

000570' 

000570 

000570' 



NAMESt 

START 

STOP 

KJOB 

CBLANK 

RCOM 

RUNCOM 

CORE 

GET 

SAVE 

SSAVE 

CONT 

DCOM 

ECOM 

PJOB 

ASSIGN 

DEASSIGN 

DDTCO 

CFIM 

REENTER 

STARTC 

CONTC 

DETACH 

ATTACH 

DAYTIM 

RUNTTM 

FREDFV 

SKFOUL 

TALK 

CLOGIN 

PEASS 

HELP 

SYSTAT 

CCLRUN 

CCLRUN 

CCLRUN 

CCLRUN 

CCLRUN 

CCLRUN 

CCLRUN 

CCLRUN 

CCLRUN 

CCLRUN 

CCLRUN 

CCLRUN 

CCLRUN 

CCLRUN 

CCLRUN 



(NOPER!TTYRNU!INCORE!NOACT!NORUN) 

;SSiror.NiKi?io^rGrN!Src?lNORUNINOPER!NOCRLFl^ 

(NOCORFiNOJOHNlNOLOGINiNOINCKlNOCRLF) 

(NOCORE!NOPEP|TTYRNU!NOCRLf^lN0ACT!N0RUN!N0TRAN) 

(NOCORE!NOPER1TTYRNU!NOCRU''INOACT1NORUN!NOTRAN) 

(NOCORE!NQRUNICMWRO:1NCORE!NOACT!NOTRAN1 

(NOCRLF!NOPERITTYRNC!NOCORE!N0ACT'.N0RUN!N0TRAN) 

(NOCRLFINOPERITTYRNCMNCOREINOACTSNORUNIPLSXPN) 

<NOCRLF|N0PERITTYRNC!INC0RE!NOACT!N0RUN!PLSXPNi 

(NOPFRlTTYRNUIINroRE'.NORUN) 

tCMWRQ! INCORE) 

(NOCRLFICMWRO! INCORE) 

<NOCnRF) 

(NOCOREl 

(NOCOREINOJOBNINOINCK) 
(NOpERlTTYRNUIINCOREtNORUNlPLSXPN) 
(TTYRNCINOACTl INCORE INORUN) 
(TTyRNU;NOPER!lNCORE!NORUN!PLSXPNl 
(TTYRNC! INCORE!NOACT!NORUN!PLSXPN) 
(TTYRNCl INCOREINORUN) 
(NOPER*NOCRLF*NOCORE!NOJOBN!NOINCK) 
(N0CORE!MOJ0PN!NOL0GIN!N01NCK) 
(N0C0RE!N0J0RN!N0L0GIN!N0INCK) 

(NOCOREINOLOGININOINCK) 

(NOCORFINOJQRNINOLOGININOINCK) 

(N0C0RE!N0J0RN!N0lDGIN!N0INCK) 

(NOCRLF*NOPEP*^OCORE'.NOJOBN1NOLOGIN!NOMESS!NOINCK) 

(NOCnRF!NOLOr.IN!NOPER!TTYRNU!NOCRLr!NOACTI'MORUN!NOTRAN) 

(NOCOREINOACT!INCORE!CMWRO!NORUN) . ,.^„..,, 

NOCORE NOLOGIN!MOPER|TTYRNU!NOCRLF!NOACT1NDRUN NOTRAN 
(NOCORF!NOLOGIN!NO*CTINORUN1NOCRLF'.NOPER!TTYRNU!NOTRAN1 
( NOCORF ! NOPE" ITTYRNUINOCRLF'! INCORE! NO ACT INDRUN) 
( NOCORF I NOPER 1 TTYRNUiNOCRLP! INCORE INQACT INORUN) 
( NOCORE INOPEfJITTVRNU'.NOCRL''! I NCOREINOACT INORUN) 
[ NOCORF ! NOPE" ITTYRNUINOCRLF! I NCOREINOACT INORUN) 
(NOCORFINOPEPITTYRNUINOCRLl^: I NCORE ! NO ACT ! NORUN ) 
(NOCORFINOPERITTYRNUINOCRLP; INCORE! NO ACT INORUN) 
(NOCORF'NOPERITTYRNUINOCRLF! I NCORE 1 NOACT ! NORUN ) 
( NOCORF ! NOPER 1 TTYRNUINOCRLF! I NCORE 'NOACT INORUN) 
( NflCORF INOPER I TTYRNUINOCRLP! I NCORE! NOACT INORUN) 
(NflCflRFSN0PER!TTYRNU!NOCRLP!INC0RE!NOACT!NORUN) 
<NOCORFlNOPER!TTYRNU!NOCRLP!INCORE!NOACT!NnRUN) 
( NOCORF I NOPE" !TTYRNU!NOCRLn I NCORE I NOACT INORUN) 
{ NOCORF ; NOPER I TTYRNU I NOCRLfM NCORE I NOACT INORUN) 
( NOCORF I NOPER I TTYRNUINOCRLP! I NCORE I NOACT! NORUN) 
( NOCORF ! NOPE" I TTYRNUlNOCRLPM NCORE! NOACT INORUN) 
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5B3 

504 000370 700400 001573' 

505 



XWD NOCORE*NOJOBN*NOLOSIN*NOINCK,NOCOM 



COMCON 



5U6 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 



- COMMAND DECODER AND SAVEGET ROUTINES 
/RCC 03 JUN 69 



V433 



MACRO, V36 19102 4-JLIN-69 PAGE 24 



;CALI,ED EROH COMMAND DECODER WHICH IS CALL.EC ERQM CLOCK ROUTINE 

IWITH FOLLOWING AC'S SFTI 

1TAC= BYTE POINTFR TO CO'^MANn STRING(SPACE OR CR AFTER COMMAND NAME) 

i ITEM = JOB NUMBER 

fDAT : BYTE POINTER TO LAST nUTPlJT CHARACTER 

iDEVDAT= ADDRESS OF DEVICE DATA BLOCK INITIATING COMMAND 

;jnAT = ADDRESS OF JOB DATA AREAi « ? IF NO JOP AREA 

iPROG'XWO PROTECTION, RELOCATION) IF NO CORE 

j IOS = k) 

lUPON RETURN FROM COMMAND SETUP ROUTINE, A CR-LF IS AODEO IF 
iNEEDED 4N0 TTY IS STARTED 

ISINCE THE COMMAND DECODER IS CALLED FROM THE CLOCK ROUTINE 
ICOMMANO SETUP ROUTINES MUST RUN TO COMPLETION QUICKLY 
;1F A COMMAND FUNCTION CANNOT DO THIS, IT MUST JUST SET 
JTHE JOB TO A RUNABLE STATUS AND RETURN IMMEDIATELY 



525 
526 
527 
526 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 



PI00371 322340 



000372 265100 



000373 
000374 
000375 
000376 



000377 
000400 



000402 
000403 
000404 



201100 
265040 
260140 
260140 



260140 
260140 



201040 
370003 
254000 



000216' COR0: 
000000 



000000 



000000 
000000 



000401 260140 000000 



000000 
000000 
00P0P10 



EXTERN TTYFNU 
JUMPE PROG.CPOPJ 
JSP TACl,MONjOa 



000000 
000000 
000000 JOBl! 



MOVEI TACl, ESTOP 
JSP TAC.MONSTR 
PUSHJ PDP, RESET 
PUSHJ PDP.TTYFNU 
IFN FTSWAP,< 

EXTERN ZERSWPiNOCORO 
PUSHJ PDP.NOCORO 
PUSHJ PDP.ZERSWP 



IFN FT2REL,< 

FXTERN KILHGH 
PUSHJ PDP, KILHGH 



CE 



MOVEI TAce 

SOS (PnP) 
JRST CORfI 



(RETURN IF JOB DOES NOT HAVE CORE 

(SET TO RUN MONITOR J0B(PC IN EXEC MODE) 

I RETURN HERE AT UUO LEVELiNO ACS SET UP) 

IPUT ERROR STOP ON END OF POL 

(START MONITOR JOB BY SETTING UP ACS AND 

(RELEASE ALL 10 DEVICES ASSIGNED TO THIS jdB 

(FIND TTY FOR THIS JOB(SETUP ITEM WITH jnBlNO.) 



(PUT JOB IN NO CORE 

(CLEAR SWAP SPACE (IF ANY) FOR LOW SEG 

( AND CLEAR SWP , SHF , I MG I N , 1 MROUT FOR LOW SEG 



(HIGH SEG FOR THIS USER, RETURN CORE 

( REMOVE HIGH SEG FROM THIS USER LOGICAL AdDRESSING 

I IF NO OTHER USERS IN CORE ARE USING IT 

( RETURN DISK SPACE IF NO LONGER SHARARL.r HIGH SiZ 

(RETURN BOTH PHYSICAL AND LOGICAL CORE 
(NEGATE SKIP RETURN WHICH COREl ^ILL DO 
(GO DO IT AND RETURN TO CALLER 



SPA 
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S52 

5" I "PJOB" PRINT JOB NUMBER OF JOB TTY IS ATTACHED TO 
554 

555 INTERNAL PJOB.DECLf 
556 

557 000405 200040 000004 PJOB! MOVE TAC.ITEM (JOB NO, 

556 000406 260140 000173' DECLFi PUSHJ POP,RADX10 (PRINT TAC AS DEC, THEM CRLF 
5S9 000407 254000 0020161 JRST CRLF 

560 
561 

562 ( "KJOB" KILL ATTACHED JOB 
563 

5*< EXTERNAL JBTSTS. TTYK IL , CPOP J 

565 INTERNAL FTTIME.JOBKL 

566 

567 000410 322200 000434' KJOBi JUMPE ITEM.JOBKB (MAS JOB INITIALIZED? 

568 [FN FTLOGIN, < 

l^t 2»«iJi SiI»S2 iSS'^^" ^^^'^ T,JLOG*JACCT (TEST JACCT ALSO IN CASE COMMAND WAS DELAYED 

570 000412 254000 000422' jRST KJ0B2 I IF JOB NOT LOGGED IN 

571 000413 661500 100000 TLO T, JACCT (DISABLE »C 

572 000414 202504 000165' MOVEM T i JBTSTS (1 TEM ) 

573 IFN FTSWAP, < 

574 000415 260140 000565' PUSNJ POP. ALOGNl (ATTACH TTY 

575 > 

576 000416 205040 000050 MOVSI TAC > TTYRNU*NOMESS 

577 000417 432043 777777 XORM TAC-KPDP) (SET TTYRNU AND CLEAR NOMESS FOR COMRET 

578 000420 200040 003053' MOVE TAC.CSIXHIT /LOGOUT/] (NAME OF CUSP 

579 000421 254000 000621' JRST ARCOM 
5R0 > 

581 000422 KJ0B2I 

582 IFE FTSWAP*FTLOGlNi< 

^^^ JUMPE PROG.JOBKA lYES, DOES JOB HAVE CORE IN MEMORY? 

584 > 

585 000422 260140 002221' PUSHJ PDP.GETMIN (GET MINIMAL JOB AREA ON DISK OR CORE 

586 000423 322340 001677' JUMPE PROG.DLYCMl (DELAY COMMAND IF CORE ASSIGNED ON DISK 

587 000424 P65100 000372' JSP TACI.MONJOB (YFS, SCHEDULE MONITOR jnB(PC IN EXEC MQnE) 
5*^ I RETURN HERE AT UUO LEVFL I'HEN SCHEDULEn 



COHCON 



5S9 
S9f3 
591 
592 
593 
594 
595 
396 
597 
596 
599 
6ZB 
601 
6132 
603 
604 
605 
606 
607 

60B 
609 
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000425 

000426 
000427 

000430 



000430 
000431 
000432 



201100 
265040 
?60140 



260140 

260140 
254000 



000373' JOBKLt MOVEI TACliESTOP 
000374' JSP TAC.MONSTR 

000375' PUSHJ PDPiJOBl 

JOBKAI 

IFN FTTIMEi< 



IFE 



>> 



002060' 

000000 
000000 



FTLOGINi < 
PUSHJ PDP.PRTTIM 
PUSHJ PDP.TTVSTR 

PUSHJ PDPiOEASTY 
PUSHJ POP.TTYKIL 
JRST KSTOP 



lERROR IN COMMAND 
3433 254000 002015' CERR! JRST ERRMES 



000434 402003 777777 JOBKB! SETEM -l(PDP) 

000435 254000 001231' JRST ATT4 



IPUT ESTOP ON END OF PDL 

IGO SETUP ACS AND PD LIST 

(FLUSH CORE AFTER RELEASING DEVICES 



IPRINT JUST TOTAL RUN TIME 
ISTART TTY 

lOEASSIGN ALL BUT TTY 

(RETURN TTY TO VIRGIN STATE 

ICLEAR JOB STATUS WORD AND STOP JOS 



ICLEAR NOjOBN SO COMRET WILL PRINT ERROR MSG. 
)"NOT A JOB" 
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610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
62 3 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
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5100436 



000436 



000437 
000440 



; "START L" OR "START" - START AT LOC, L OR STARTING ADDRESS 
INTERNAL FT2REL 
EXTERNAL JOBSA 



START! 



(SAME AS CSTART, DIFF 8Y COMTAB BITS 
I WHICH PUT TTY IN MONITOR OR USER MODE 



i "CSTART L" OR "CSTART" - START AT LOC. L(TTY IN COMMAND MODE) 

260140 002073' STARTCi PUSHJ POPiOCTIN ICONVERT POSSIBLE OCTAL NO ARG. 

IFE FT2REL.< 

SKIPA TACl.JOBRAI JDAT) (NO START ADR, SPECIFIED RETURN 
> 
IFM FT2RELi< 

JRST SNOaRG iNO ARG SPECIFIED RETURN 
> 

JRST COMERA 
IFN FT2Re:l,< 

EXTERN CHKMEO 

PUSHJ POP, CHKMEO 



254000 
2540(»0 



000443' 
002000' 



•ILLEGAL CHARACTER 



000441 260140 000000 PUSHJ POP, CHKMEO ICHECK TO SEE IF HIGH SEG WHICH IS SHARaBLE 

I IF YES, TURN ON USER MODE WRITE PROTECT 

I FOR THIS USER. AND SET HFDOLF RIT SO HF CANNOT 

) TURN UWP OFF.> 

000442 2540PS0 000447' JRST CHKSTR ISTART JOB WITH PC IN USEH MODE, 

) IF START AHR IS NON-EERO 
IFN FT2REL.< 
1^00443 334107 000000 SNOARG! SKIPA TACl , JOBSA ( jDAT ) INO, ARG SPECIFIED, USE START ADR SUPPLIFD 

I BY PROGRAM ENO STATEMENT AND STORED BY LINKING LOADER 
I SKIP INTO REENTER, START WITH PC IN USER MODE 
> 
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642 l"REENTER" - REENTER USER PROGRAM 

643 

641 EXTERNAL JOBREN 

646 000444 200107 000000 REENTERlMOVE TACl , JOBREN ( JDAT ) IGET REENTER ADDRESS fROM JOB DATA AREA 

647 000445 254000 000447' JRST CHKSTR ISTART JOB WITH PC IN USER MODE 
0^/ BBB^ 3 ^ ^ ^ j^ g^^P^ ^^^ jg NON-EERO 

649 

690 I "DDT" - START EXECUTION AT DDT IN USER AREA 

651 

652 EXTERN JOBODT 

ART 

654 000446 200107 000000 DDTGOI MOVE TACl iJOBDOT ( JDAT ) IDDT STARTING ADR, IN JOB DATA AREA 

655 I PALt INTO CHSTR 

llj (ROUTINE TO CHECK TO SEE IF STARTING ADDRESS IS NON-ZERO, AND START USER IF OK 

659 000447 326100 000000 CHKSTRl JUMPN TACtiUSTART (IS IT NON-ZEROt. IS YES 

4J0 " •< '■ , gjjRE- Q|_o PC jN JOBOPC IN JOB DATA AREA 

441 ( THEN START WITH PC IN USER MODE 

662 000450 265040 002015' JSP TACERRMES INO, PRIMT "NO START ADR" 

663 000451 472364 051650 ASCII /NO START ADR 
000452 406452 420232 

664 000453 422441 505000 / 
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665 

6*6 ; "STOP" OR "<COnTROL>C" 

**' (SCANNER ROUTINES DUMMY UP STOP WHEN CONTROL C TYPED IN 

?*! 'STOP MUST BE DELAYEn IF THIS JO? IS SYSTEM TAPE USER 

"' '*^'D SYSTEM TAPE IS ACTIVE. OTHERWISE. THE JOB HILL NOT BE 

°l^ ISTOPPEO WHEM OONE USING THE SYSTEM TAPE. 

671 

6'Z INTERNAL FTDISK 

*" EXTERNAL STUSER . JOB , P JBSTS i I OWQ, JOBDAC 

674 

675 H00454 322200 000462' STOP! JUMPE ITEM.STOPB 

tit tll'^l^. 315200 000000 DAMN ITEM, STUSER US THIS SYSTEM TAPE USER? 

677 000456 254000 001577- JRST CFlNS ,YES, DO FINISH SYS COMMAND 

6'^8 IFig FTDISK, < 

679 

680 000457 2601,40 001705' PUSHJ PDP.STOPCK JCAN THE JOB STOP? 

681 000460 254IZ00 001677' jRST DLVCMl |N0. DELAY IT. 
6 82 > 

683 000461 260140 000000 PUSHJ POP, STOP! (STOP JOB 

684 STOPS! IFE FTTTySER,< 

*?f JSP TAC.CONMES (PRINT 'itC CRLF CRLF PERIOS" 

686 ASCI? /tc; 

687 . / 

688 > 

.689 000462 263140 0000(10 JFN FTTTYSER,< POPJ PDP.O 
690 

*^J ' "CONTC" - CONTINUE EXECUT ION( TTY REMAINS IN COMMAND MODE) 

693 000463 CONTC! ,SAME AS CONT 

694 

f" • "CONT" - CONTINUE EXECUTION FROM WHERE LEFT OFF 

696 EXTERNAL JBTSTS 

697 

698 000463 205l?)0 020000 COMT! MOVSI TACl.JERR 

699 000464 616104 000414' TDNN TACl, JRTSTSdTEM) )IS JOB ERROR BIT SET? 

7S? IIVAI mm lllV^l ^^^-^ ''"''• ICOMMAND OECnOER WILL DO REST 

701 000466 265040 002015' JSP TACFRRMES ,yES. PRINT CANT CONTIMUF 

702 

703 000467 416031 623650 ASCI2 /CAN'T CONTINUE 

000470 202071 747250 

000471 4463';2 542432 

704 000472 050000 000000 / 
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7C5 
726 
707 
70B 
7(119 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 

724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 



000473 
000474 
000475 



000500 
000501 
000502 

P00503 



000504 
000505 



260140 
254000 
254000 



000476 322100 



201042 
260140 
254000 
263140 



326340 
260140 



000506 254000 



I "COrtE #" - ASSIGNS ««1024 WORDS OF CORE TO JOB 

I "CD'<E" WITH VC ARC. WILL PRINT NO OF FREE PLOCKS LEFT 

i WITHOUT AFFECTING CURRENT ASSIGNMENT OF CORE 

i JOB NOT IN MIDDLE OF SWAPPING 

) EITHER ON DISK OR COPE OR NEITHER PLACE 



EXTERNAL PCORS? 

002071' CORE! PUSHJ POP, DECIN 
000512' JRST CnR3 

002000' JRST COMERA 

IFE FTSWAP,< 

JUMPE TAC1,COR0 

> 

IFN FTSkAP,< 
000504' JUMPE TACl.CORl 



000477 242100 000012 



777777 
000000 
000507' 
000000 



300371' 
302221' 



31676' 



LSH TAC1,12 

MOVEI TAC,-1(TAC1) 

PySHJ PDP.CORE0 

JRST C0R2 

POPj PDP, 
IFM FTSMAP,< 
(USER ASKING FDR 0K 
CORl! JUMPN PROG1COR0 

PUSHJ PQP.GETMIN 

JRST DLYCM 



(GET NO, OF IK BLOCKS 

)N0 ARG, SPECIFIED, JUST TYPE FREE BLOCK LEFT 

IILLEGAL DECIMAL CHARACTER RETURN 

;RELEASE DEVICES IF USER ASKING FOR CORE 



JASSIGN JUST MINIMAL CORE AND RELEASE DEVICES 
I IF ASKING FOR CORE 

(CONVERT IK BLOCKS TO WORDS 

(HIGHEST RELATIVE ADDRESS=LENGTH-1 OF LOw SEG 

ITRY TO ASSIGN CORE 

ICORE NOT AVAILABLE, GO PRINT MESSAGE 

(OK RETURN, CORE ASSIGNED ON DISK OR MEMORY 



(GO RELEASE ALL DEVICES IF HE HAS CORE I"' MEMOpY VET 
(NO, CORE ON DISK OR HAS NONF, ASSIGN MINIMAL ' 
I AREAIFLUSH HIGH SEG TOO) IN CORE OR DISK 
(AND DELAY COMMAND TILL CORE IS IN MEMORv 
( DLYCM WILL SWAP IT IN, 
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C0R2: !FN FTTTYSER,< 

IRESTORE TTY DOB ADR 

IPRINT ? FOR PATCH 
IPRINT SIZE OF LOW SEG 



736 


000507 






C0R2I IFN FTTTYSER,< 


737 


000507 


200303 


777776 




MOVE DEVDAT,-2(PDP) 


738 








> 




739 


000510 


260140 


002025' 




PUSHJ PDP.INLMES 


740 










ASCIZ /? 


741 


000511 


374321 


200000 


/ 




742 


000512 


260140 


002210' 


C0R3I PUSHJ PDP.PRTSEG 


743 








IFN 


FT2RELi< 


744 










EXTERN PRTHGH 


745 


000513 


260140 


000000 




PUSHJ POP, PRTHGH 


746 












747 








> 




748 


000514 


260140 


002025' 




PUSHJ POP.INLMES 


749 


000515 


274000 


000000 




ASCI? "/" 


750 












751 








IFE 


FTSWAP.< 


7S2 










EXTERN CORTAL 


753 










MOVE TAC, CORTAL 


754 








> 




755 








!FN 


FTSHAP,< 


756 










EXTERNAL CORMAX 


757 


000516 


200040 


000000 




MOVE TAC, CORMAX 


758 


000517 


242040 


777766 




LSH TAC. -12 


759 












760 








> 




761 


000520 


260140 


000406' 




PUSHJ PDP.RADX10 


762 








IFF 


FTSWAP,< 


763 










JSP TaC.CONMES 


764 










ASCI? /K CORE 


765 








/ 




766 








> 




767 








IFN 


FTSW4P.< 


768 










EXTERN VIRTAL 


769 


!»005?1 


260140 


002025' 




PUSHJ PDP,INLMFS 


770 


000522 


455010 


347644 




4SC1? /« CORE 


771 


000523 


424321 


253222 


VIR. 


CORE LEFT=/ 




000524 


511344 


041636 








000525 


512124 


046212 








000526 


432507 


503000 






772 


000527 


?00a40 


000000 




MOVE TAC, VIRTAL 


773 


000530 


254000 


300520' 




JRST RADX10 


774 








> 





IPRINT SIZE OF HIGH SEG (+0 IF NONE) 

I NOTHING IF NOT 2 REG, MACHINE OR SOFTWARE 



(NO. OF FREE IK BLOCKS 



IPRINT MAX, NO, OF BLOCKS IN PHYSICAL CORE 
(AVAILABLE TO A SINGLE USERCAS SET 
I BY BUILO AND/OR ONCE) 

IPRINT NO, OF IK BLOCKS AVAILABLE 



IPRINT AMOUNT OF FREE SUAP SAPCE LEFT 
UN DECIMAL 



cOMcniv 



775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 

794 
795 
796 
797 
798 
799 
800 
831 
8132 
803 
804 
8!?5 
806 
807 
8^8 
809 
810 
811 
812 
813 
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I "SSAVE FILNAM.EXT CPRQJ.PRnG: CORE" 

IWORKS LIKE SAVE, EXCEPT THAT HIGH SEG IS SAVED AS SHARARLE ( EXT=SMR ) 

IINSTEAD OF N0N-SHARA8lE<EXT«HGH) 

S "SAVE F1LE-NAME[PR0J,,PR0G.] CORE" - SAVES JOB AREA 0,N RETRIEVABLE DEVtlCE 

;ONLY A SAVE OR A GET I .M PROGRESS FOR EACH JOB 

)N0 ATTEMPT IS MADE TO SAVE DEVICE ASSIGNMENTS, AC'S, OH PC 

PIB0531 SAVE! IFN FT2REL,>< 

000531 661000 400000 TLO lOS.NSRBiT ,SET FLAG FOR NON-SHARABLE EXTfHGH) 



000532 541000 002314' SSAVE: HRR I IDS.SAVJDB 

000533 260140 001723' PUSHJ PDP,CTEXT1 

000534 402004 000000 SETZM JBTPRG(ITEM) 

000535 254000 002241' jRSj SGSET 



ISETUP TO RUN SAVJOB (lOS CLEARED BEFORE 

IDISPATCH 

ICLEAR JOB'S PROGRAM NAME FOR RCOM 



) "GET DEV1CEIFILE-NAMECPRDJ.,PR0G.] CORE" - SETS UP JOB AREA FROM RETREiUblE 
IDEVICE AND ASSIGNS CORE, 



000536 201000 002406' GETl 

000537 260140 001723' 

000540 402004 000534' 

000541 254000 0006301 



MOVEI I0S,GETJOB 
PUSHJ PDP,CTEXT1 
SET?M JBTPRG(ITEM) 
JRST RUNCM 



ISETUP TO RUN GETJOS 
IGET DEVICE NAME 
ICLEAR NAME FOR RCOM 

I JOB DATA AREA FOR MONITOR JOB 



IFN FTLOGIN,< IAUTOMaTIC LOGIN AFTER DSK REFRESH OR WHEN REFLAG SET 
EXTERNAL REFLAG 



000542 
000543 
000544 
000545 
000546 
000547 



202044 
205040 
436044 
402003 
402000 
263140 



000000 
000004 
000464' 
777777 

000000 
000000 



logreF] 



MOVEM 


TACPRjPRGt ITEM) 


MOVSI 


TAC, JLOG 


lORM 


TACjBTSTSdTEM) 


SET2M 


-KPDP) 


SET2M 


PEFlaG 


POPJ 


POP, 



|PRj,PRG NRS, ivj REFLAG 



ICLEAR ALL FLAGS FOR COMRET 
lONLY ONCE 
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814 l"HELP" -HELP COMMAND 

ai5 

816 INTERNAL FTlOGIN 

817 

818 IFN FTLOGIN, < EXTERNAL HELPPP 

819 B00550 HELPll 

820 000550 200040 000000 MOVE TAC, HELPPP 
B21 000551 607500 000004 TLNN T.JlOG 

822 000552 254000 0005S2' JRST ALOGIN 

823 000553 263140 000000 PQPJ POP. 

824 > 
825 

826 000554 HELPi IFN FTLOGIN, < 

827 000554 260140 000550' PUSHJ POP, HELPI 

828 > 

829 000555 200040 003054' MOVE TACCSIXBIT /HELP/3 ICUSP NAME 

830 000556 254000 000621" JRST ARCOM I RUN IT 
831 

332 000557 SYSTaTi IFN FTLOGIN. < 

833 000557 260140 000550' PUSHJ POP, HELPI 

834 > 

835 000560 200040 003055' MOVE TACCSIXBIT /SYSTaT/] ICUSP NAME 

836 000561 2540i!0 000621' JRST ARCOM IRUN IT 
837 

•838 

839 EXTERNAL JBTSTS , TTYATT 

840 

841 000562 ALOGINl 

842 INTERNAL FTLOGIN 

843 IFN FTLOGIN, < EXTERNAL PRJPRG 

844 000562 202044 000542' MOVEM TAC , PR JPRG ( I TEM ) 

845 000563 205040 000004 MOVSI TACiJLOG 

846 000564 412044 000544' 4NDC4H TaC i JBTSTS ( I TFM 1 
84 7 > 

848 IFN FTSWaP,<EXTERNAl TTYATT 

849 000565 260140 000000 ALOGNl: PUSHJ POP, TTYATT IMAKE SURE TTY IS ATTACHED IN CASE 

850 I THIS COMMAND MUST SE OELAYEO 

851 I BECAUSE NO CORE YET. 

852 000566 255030 000000 JFCL 

853 > 

854 B00567 263140 000000 PQPj pOP, 
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855 
SS6 
857 
8SB 
859 
860 
861 
86Z 
863 
864 
865 
866 
867 
868 
869 
870 
871 



872 
873 
874 
875 
876 
877 
878 
879 
880 
BSl 
882 
883 
884 
885 
886 
887 
8S8 
8S9 
890 
891 
892 
893 
894 



• COMMAND OECODCR AND SAVEGCT ROUTINES - V433 
/RCC 03 JUN 69 

INTERN FTCCL 

IFN FTCCL. < 
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000570 200040 003056* CCLRUM MOVE 



000571 254000 000621' 



000574 
000575 

000576 
000577 
000600 
000601 



000602 
000603 



000604 
000605 
000606 

000607 
000610 

000611 
000612 
000613 
000614 
000615 
000616 



JRST 



TACCSIXBIT /COMPa/3 

aRcom irun it 



ICUSP NAME 



000572 265040 

000573 502310 



425011 
411011 

422132 
440321 
603500 
2540^10 



200040 
301040 



254000 
201200 
254000 

332040 

254000 

200040 
260140 
205040 
436044 
200040 
254000 



("LOGIN" - LOGIN COMMAND 

INTERNAL FTLOGIN 
IFN FTlOGIN,< 



EXTERNAL SYSPP 
002015' LOGOETl JSP 



540646 
345236 
751100 

442606 
200000 
000004 
000572' 



000527' 

000000 



000607 ' 

000000 

000507' 

000546' 
000542' 

000000 

000562' 

100000 

000564' 

003057' 

000621' 



ASCIZ 



TACERRMES 

/PLEASE KJOB OR DETACH 



CLOGINl TLNE T.JLOG 
JRST LOGDET 

IFN FTSWAP,< 

EXTERN VIRTAL.L0GSI2 
MOVE TACVIRTAL 
CAIL TACLOGSI? 



JRST CL0G2 
MOVEI 1TEM.0 
JRST C0R2 



> 

CLDG2I 



SKIPE 
JRST 



TACiREFLAG 
LOGREF 



MOVE TAC, SYSPP 
PUSHJ PDP.ALOGIN 
MOVSl TACJACCT 
lORM TAC, jBTSTSdT 
MOVE TACCSIXBIT / 
JRST ARCOM (RUN 



IFORCE USER TO LOGOUT BEFORE 
; LOGGING IN ANEW, 



lAMQUNT OF FREE VIRTUAL CORE LEFT 

(IS THERE AT LEAST 2K FOR LOGIN? 

I CUSTOMER CAN REDEFINE TO BE BIGGER THAW 2 

I WITH MONGEN DIALOG ' 

lYES, 

INO, SET JOB NUMBER TO FOR COMMAND DECODEiR 

lANO GO TELL USER AMOUNT OF CORE LEFT 

IREFLAG SET NON-HERO FOR AUTOMATIC LOGIN? 

lYES, LOG USER IN WITHOUT RUNNING CUSP 

> SO HE CAN RELOAD THE DISK AFTER REFRESH 

ISET PRJPRG TO SYSPP 

lAUTOMATIC LOGIN 

IFLAC LC"5IN OR LOGOUT RUNNING AND 
EMjIDISABLE 'C, 
LOGIN/] ICUSP NAME 
IT 
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895 I "R CUSPNAME CORE" - DOES "RUN SYS i CUSPNAME" 

896 

B97 000617 201040 000000 RCOM! MOVEI TAC,0 (NO FILE NAME, TTY WILL SUPPLY [T 

898 000620 254000 000622' JRST ARCQMl 

899 

900 000621 260140 000222' ARCOM! IFN FTTTYSER,< PUShJ PDP,SKPBRK> 

901 000622 202044 000540' ARCOMll MOVEM TAC, JBTPRG ( I TEM) (STORE FILE NAM!" 

902 000623 205100 637163 MOVSl TAC1,(SIXB1T /SYS/) IREAO FROM SYS OFVICE 

903 000624 254000 000627' jRST RUNC02 

904 1 "RUN DFVICEIFlLECPR0j,,PR0G,3 (CORE)" 

905 IDOES A CORE. GET, START ALL IN ONF 

'816 lIF CORE ARG IS MISSING. SIEF IN DIRECTORY IS USEO 

'l'^ (JOB ON DISK OR IN CORE OR NO CORE. RUT NOT IN MIDDLE OF SWAP 

908 

909 EXTERNAL JOBDA 
910 

911 S»00625 260140 001723' RUNCOM; PUSHJ POP.CTEXTl IGET DEVICE NAME FROM COMMAND STRING 

912 000626 402004 000622' SETZM jBTPRGdTEM) ICLEAR FILf NAME 

913 000627 201000 002413' RUNC02 I RUNCl i MOVEI lOS.RUNJOB 

914 f>00630 260140 002221' RUNCM! PUSHJ PDP.GETMIN IGET MINIMAL JOB AREA IM CORE OR DISK 

915 000631 326340 002241' JUMPM PRnG.SGSET IWAS CORE ASSIGNED IN MEMORY? IF YES, GO SCANARGS 

916 IFE FTSWAP,< 

917 JRST C0R2 )N0, PRINT "0K CORE LEFT" 

918 > 

919 IFN FTSWAP,< 

920 000632 254000 001676' JRST DLYCM )N0. DELAY COMMAND UNTIL IN CORE 

921 > 
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922 
923 
924 
92! 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 

941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
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/RCC 03 JUN 69 

) "ASSIGN DEVINAME" - ASSIGN DEVICE TO JOB AND GIVE IT LOGICAL NAME 



000633 
000634 

000635 
000636 
000637 
000640 
000641 
000642 

000642 

000643 



000644 
000645 
000646 
000647 
000650 
000651 
PI00652 
000653 
000654 
000655 
000656 
000657 
000660 
000661 
000662 
000663 
000664 



260140 

322100 

312100 
2S4000 
554544 
306540 
254000 



200540 
261140 



200040 
260140 
254000 
201100 
254000 
201100 
554300 
700046 
312546 
?54000 
316540 
254000 
316040 
254000 
260140 
254000 
254000 



001723' 
002034' 

003060' 

000642' 

000562' 

000001 

000701' 



EXTERNAL DEVLST.PJOBNiSrSTAP 

ASSIGNl PUSHJ PDPi CTEXTl 

JUMPE TACli NOTENF 
IFN FTLOGIN,<EXTERN PRJPRG 



IGET FIRST ARGUMENT 
(NO ARGUMENT TYPED IF 



CAME TACl.CSIXBIT ,SYS,3 

JRST ASSG6 

HLRi TliPRJPRG(ITEM) 

CAIN Tl.l (PROJECT NR. 

JRST ASSG7 lYES 



1? 



ASSG6I 
> 



000002 



000006 



IFN 

> 

IFE 



MOVE Tl. TACl 
FTTTYSER,< 

PUSH PDPiDFVDAT 

FTTTYSERi< 

PUSH POP, TAC 



(SAVE DEVICE NAME 
(SAVE TTY ODB 

(SAVE INPUT BYTE POINTER 



000002 MOVE TAC, TACl 

000000 PUSHJ PDP.OEVPHY 

000651' JRST 4SSG3 

400000 MOVE! TACl.ASSCON 

000656' JRST ASSG4 

400000 ASSG3i MOVEI TACl.ASSCON 

000000 HLRH DEVOAT, DEVLST 

000000 ASSG0! MOVE TAC,DEVNAM(OEVDAT) 

000000 CAME Tl.DEVNAM(DEVDAT) 

000665' JRST ASSGl 

003061' ASSG41 CAMN Tt.CSIXBIT /OSK/3 

000662' JRST ASSG5 

000000 CAMN TAC,SYSTAP 

000723' JRST ASSFlN 

000000 ASSG5! PUSHJ POP.ASSASG 

000707' JRST ASSERl 

000723' JRST ASSFIN 



(SETUP ASSIGNED BY CONSOLE BIT 



(DOES PHYSICAL NAME MATCH? 

INC 

(IS THIS A DISC?(IF YES, 

(BYPASS CHECK FOR SYSTEM TAPE AND ASglG^ BFLOb 

(IS NEXT DEVICF IN LIST THE SYSTEM TjiPE? 

(YES. DO NOT ASSIGN, CLEAR DIRECTORYi IN CORE BIT 

(NO, TRY TO ASSIGN DEVICE 

(ALREADY ASSIGNED TO ANOTHER JOB 

(ASSIGNED 
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9«0 








96i 








962 


000665 


316040 


000660' 


963 


000666 


J540?)0 


000675' 


964 


000667 


135500 


000215' 


965 


000670 


620040 


777777 


966 


000671 


316040 


000013 


967 


000672 


260140 


000662' 


968 


000673 


254000 


000675' 


969 


000674 


322500 


000723' 


970 








971 


000675 


554306 


000003 


972 


000676 


324300 


000653' 


973 








974 


000677 


262140 


000006 


975 








976 








977 








978 








979 


000700 


254000 


000770' 


980 








981 








982 


000701 


260140 


001723' 


983 


000702 


322100 


002034' 


984 


000703 


3310C0 


000000 


985 


000704 


25'»0(>0 


001677' 


986 


000705 


202100 


000665' 


987 


000706 


263140 


00C1000 


988 









ISYSTEM TAPE OR NOT MATCH OF ARG AND PHYSICAL NAME 
ASSGi: 



CAMN TACSYSTAP 
JRST ASSG2 
L.DB T, PJOBN 
TRZ TAC-l 
CAMN TAC, Tl 
PUSHJ PDP. ASSASG 
JRST ASSG2 
JUMPE T.ASSFIN 



lis THIS SYSTEM TAPE? 

lYES 

ISAVE OLD JOa NUMBER FOR THIS DEVICE 

ICOMAPRE LEFT HALF ONLY 

IMATCHi TRY TO ASSIGN IT 

IKEEP L00KIN5 

I IF OLD JOB NUMBER 0, OEVICE PREVIOSLY UnASSIGNED 



ASSG2I 



HLRH DEVDAT, DEVSER(nEVOAT) 
JUMPN DEVDAT, ASSG3 

IFN FTTTYSER,< 

POP PDP, DEVDAT 

> 

IFE FTTTYSER,< 

POP POP. TAC 
> 

JRST NOTDEV 



(RESTORE TTY DDB 



(PRINT NO SUCH DEVICE 



lEN ftlogin,<extern STREQ.SYSTAP 

ASSG7i PUSHJ PDP,CTEXT1 

JUMPE TACl.NOTENF 

SKIPL STREO 

JRST PLYCMl 

MOVEw taci.systap 

POPJ PDP. 
> 
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9S9 
990 
991 
992 

993 

994 

995 

996 

997 

998 

999 

10(10 

1001 

1002 

1003 

1004 

1005 

1006 

1007 



000707 



000707 
000710 
000711 
000712 
000713 
000714 
000715 



135040 
262140 
261140 

201040 
260140 
262140 
254000 



000667' 
000006 



000716' 
002015' 
000001 
000406' 



lALREAOY ASSIGNED TO ANOTHER JOB 

ASSERll 

IFE rTTTYSER,< 

POP POP, TAG 

MOVEI TAC, ASSMS2 

PUSHJ POP.ERRMES 

LDB TAC, PJOBN 

JRST OECLF 
> 
IFN FTTTYSER,< 

LOB 

POP 

PUSH 

MOVEI 

PUSHJ 

POP 

JRST 
> 



(PRINT JOB NUMBER CRLF 



TAC, PJOBN 
PDP,OEVDAT 



(GET JOB NUMBER FOR DEVICE 
ICET DOB FOR TTY 

POP, TAC (SAVE JOB NO. 

TAC,ASSMS2 ITYPE ERROR MESSAGE 

POP.ERRMES 

POP, TAC )GET JOB NO, BACK 

DECUF )AND TYPE IT 



1008 



000n7 J'"" 040646 *"""' *''"' ''''''°' *'''^^" " '"^ ' 

000720 516230 747212 

000721 421012 447500 

000722 452370 220000 
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^l «...3 ..a..a ...... SSy|S;"oESiXI,^^vSA^?='?^tE:r^C,CAL NAME 

B > ' ' "-^--:-voAT .'s^^^^^S^s'^So^JEir^ ^°'^^" 

J-SJ5 IFN FTTTYSER,< 

1.16 0.0724 250303 00.0.0 ^ EXCH DEVDAT , (POP , .GET TTYODB, SAVE DEVICE ODB 

1022 000730 254200 B00735' JRST ASSFl iMn^ ^"'^ "^^^ 

1023 000731 201040 000751' mOVEI TAC.LOrEBR vrc ddiht ro = „r, 

1024 00.732 200303 777775 ' "SvE SevSaT?-3 (PnP ) ReItoRF TTV^nnS" 

1025 000733 260140 0.2015- puSHJ POP.ERRMES '""TORE TTY OOB 

1026 000734 2.1040 0.0000 MOVE! TAr.0 .^iit.d ,n^i^,, ., .,,. - 

1027 .00735 262140 000.06 ASSFli POP PQP.SeVDAT ^^ LOGICAL NAME FOR THIS DEVICE 

E -- ^si- := :s:i;;;s?s!r™"is5r,??!5g5;:'j.rf;, 

1.31 000740 413106 .0.004 HGM TACl . OEVMOD < OEVDAT ) , SETUP TACl WITH DEVICE CHARACTERISTICS FOR ASC 

^IW IFN FT2REL,< 

ll^l EXTERN ASGHGH 

1035 000741 260140 000000 MENTS ''^^"^ P0P.4SGHGH , GO CHECK IF THIS DEVICE HAS INITIALIZED ANY SHARED SEG 

1036 

1037 ^^y, ' "' ^ES, CLEAR SEG NAMES SO NO NEW SHARING (DTA.MTA ON 

E iivM in\ti T/.r. ' :z "^n^Ev°o^:?:^^?P^^r',RESTORE'??Y"iSB*^ ^*^^ 

-^- -"-^^ itzz zizi :s^p-^Ac^?^oii^^ •-" -^ 

1043 

1044 000746 202032 351622 ASCI? / ASSIGNED 
0.0747 43635. 542032 

1045 0.0750 05.000 00.000 / 

''" 000752 T.llll IVllll '"''"" ''''' ''°''''' ''"' *^^^*°^ '^ ^^^' ' 

000753 466124 040630 

300754 512130 142262 

000755 202231 62.252 

000756 516125 420.00 
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11346 
i.eA9 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
10&0 
1061 
1062 
1063 
1064 
1065 
1066 

1067 



1066 
1069 
1070 
1071 
1072 
1073 
1074 
1075 



1076 
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000757 
000760 
000761 
000762 
000763 
000764 
000765 
H00766 
000767 

000770 
000770 
000771 



000772 
B00773 
000774 
000775 

000776 
000777 
001000 
001001 

001002 
001003 
001004 
001005 



322200 

260140 
322100 
200040 
260140 
254000 
260140 
254000 
263140 



200303 
265040 



472364 
416204 
532230 

050000 

200106 
200303 
260140 
265040 

202570 
236504 
516230 
420321 



("DEASSIGN DEV" - OEASSIGNS DEVICE FROM CONSOLE 
INTERNAL NOTDEV 



000371' DEASSIl JUMPE ITEM.CPOPJ 



001723' 

002060' 

000002 

000000 

000770' 

002043' 

000776' 

000000 



PUSHJ PDP.CTEXTl 
JUMPE TACl.DEASTY 
MOVE TAG, TACl 
PUSHJ POPi DEVSRC 
JRST OEAERl 
PUSHJ PDPi OEASC 
JRST DEAER2 
POPJ POP, 



NOTDEVI 
777776 DEAERll MOVE DEVOAT , ■.2( POP) 
002015' JSP TACiERRMES 



INO-OP IF NO JOB NUMBER 

IGET DEVICE NAME 

INO ARG, [F 0, DEASSIGN ALL BUT TTY 

lOEVICE NAME 

(SEARCH FOR DEVICE 

INOT FOUND 

IFOUND, DEASSIGN IT 

INOT PREVIOUSLY ASSIGNED 

(DEVICE OEASSIGNED 



(RESTORE TTY ODB 
(PRINT NO SUCH DEVICE 



051652 
042212 
342432 
000000 / 



ASCIZ /NO SUCH DEVICE 



000000 □EAER2( MOVE TACl , DEVNAM(DEVDAT ) (PRINT PHYSICAL DEVICE NAME 
777776 MOVE DEVDAT, -2 ( PDP ) (RESTORE TTY ODB 

000744' PUSHJ PDPiPRNAME 

002015' JSP TACERRMES 



151634 
040646 
747212 
200000 / 



ASCIZ / WASN'T ASSIGNED 
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^lll INTERNAL FTREASSiGN 

107, II^E FTREASSIGN,< 

nil REASSUUUOERR 

11981 

nil IfN FTRE4SSIGN,< 

lll^ (REASSIGN UUO 



1086 'CALL MOVE AC. JOB NUMBER 

laly > MOVE AC*1,SIXBIT /DEVICE/ 

1088 !,, .,,^"!:'- *"^'CSIXBIT /REASSIGN/] 

1089 ',\l ^ *^':?',-'°S '^*S NOT BEEN INITIALIZED 

1090 '"^ C(AC*1)»0, DEVICE NOT ASSIGNED TO THIS JOB OR DEVICE IS A TTY 



3-So5 INTERNAL REASSIGN 



1093 



EXTERNAL PUUOACJOB 



IflOS fSJ»^S l^l^'"' ^'""""^ REASSIt LDB UUO.PUUOAC 

1095 001007 505600 300007 uRL t UUO PRnr 

1096 001010 26U60 000014 PUSH Pnp'allMS 

11397 001011 350000 200014 ADS UUO "^°^ WmZR TO BE REASSIGNED TO 

1098 PI01012 2001P0 000014 „ni/r T«r« a,n,n 

1099 001013 2002M 000000 Sgvl ItE^'jor '5^!^" ''*''^ 

1100 001014 364600 0010I6. ToA iuO^REASSl """ '°' '^'^" 

UW '"REASSIGN DEViJOB" - REASSIGN DEVICE "DEV" TO JDS "JO?" 



1104 

1105 001015 



REASS: 



U07 Zlll Itnil Zllli: T.'p'r T^'l'.VrK .GET DEVICE NAME 

1108 001017 P00600 000002 MOVE UuS UC?'" I.'^^^ TV. 

1109 001020 260140 M2071' PUShj POP DrrlMi 'ftr^.V '^ ^^° 

1110 B01021 254000 0020341 IRS? Mn?r;r"^^ '°^^ ^^^ "^"^ DUMBER 

Ull 001022 254000 002000, JrI; 'l°ll'l[ !?,?5.r"i^'"' °0"N'T RETURN IF ERROR 

1112 001023 261140 000002 ^^SH pSp ^An ih^^'^^ CHARACTER 

1113 001024 200100 000014 ^^v^ ?»C1 mm "^?^ ^°^ ^^"-" °^ STACK, OEVICE 
111- 001025 402000 0000^ SE°T2m'5S '''° :^ ?MIf,".„...„ 



(SET COMMAND SWITCH 
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1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1121 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 

1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 



001026 
001027 
001030 
001031 
001032 
001033 
001034 
001035 
001036 
001037 
001040 
001041 
001042 
001043 

001044 
001045 
001046 
001047 
001050 
001051 
001052 
001053 
001054 
001055 
001056 
001057 
001060 
001061 
001062 
001063 
001064 
001065 
001066 
001067 
001070 



250203 
3032IJI0 
254000 
200044 
250203 
607040 
254000 
200040 
260140 
254000 
135040 
312040 
254000 
200046 

603040 
254000 
606040 
254000 
3266?i0 
5043P3 
202307 
262140 
200303 
205l!J0 
436l!)3 
265100 
265040 
554047 
261140 
55031^7 
200200 
476000 
550446 
5523C7 
200500 



(ROUTINE COMMON TO REASSIGN UUO AND COMMAND 
EXTERNAL JBT'5TS,PJOBN,JORf:ov 



000000 

000000 

0011151 

000614' 

000000 

040000 

001111' 

000002 

000763' 

001115' 

000707' 

000004 

001121' 

000004 

000010 

001123' 

200000 

001102' 

001066' 

000000 

000000 

000002 

777776 

000020 

777777 

000000 

000426' 

001052' 

000001 

001061' 

001013' 

000014 

000003 

001063 

000000 



REASSl! EXCH ITEM,(PDP) 
CAILE ITEN.JOBN 
JRST REASE2 
MOVE TACJBTSTSdTEM) 
EXCH ITEM.(PDP) 
TUNN TAC.JNA 
JRST REASEl 
MOVE TAC.TACl 
PUSHJ P0P,0EVSRC 
JRST REASE2 
LOB TAC.PJOBN 
CAME TAC.ITEM 
JRST REASE3 
MOVE TAC,DEVMOD(nEVDAT) 

TLNE TAC.DVTTY 

JRST REASE6 

TRNN TAC.ASSPRG 

JRST REASS3 

JUMPN 'JU0,REASS4 

HRL OEVOATitPOP) 

MOVE" OEVDAT, JOBFDV(JDAT) 

POP PDP.TACl 

MOVE DEVDAT,-2(PDP) 

■ □"rm'tIc^IIIpop' "" ''""' '° '°' "'LL ^^^ 

JSP TACl.MSTART 

JSP TACmONSTR 

MLRZ TAC, JOBFDV( JOAT) 

PUSH POP, TAC 

HRP2 DEVHAT, jOgFOV<jnAT) 

MOVE ITEM, JOB 

^^l°" UUQ ISET FLAG TO STOP JOB 

WRi DSER.DEVSERCDEVTAT) 
HRRZ" DEVOAT, JOBFDV( JDAT) 
MOVE UCHN.USRHCU 



INEW JOB NO, IN ITEM 

IIS JOB NUMBER OUT OF RANGE? 

lYES, DO NOT REASSIGN 

INEW JOB STATUS 

IRESTORE ITEM AND STACK 

IDOES NEW JOB EXIST? 

INO, 

ISEARCH FOR DEV 
INOT FOUND 

lASSIGNEO To THIS JOB 
INO 



IIS IT A TTY? 

lYES, CAMT PE REASSIGNED. 

I IS DEVICE INITE07 

INO, 

lYES, COMMAND LEVEL? 

lYES. SCHEDULE RELEASE 



REASS4I 
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/RCC 03 JUN 69 

MOVE OEVDAT,USRJOA(UCHN) IGET XWD UUO BITS.ODB ADDRESS 

HRRZ TACJOBFDVIJDAT) (GET ADDR, OF DDB SAVED BY COMMAND 

PUSH POP.UCHN (SAVE USER CHANNEL. 

CAIN TAC,(DEVDAT) IIS CHOSEN DEVICE ON THHS CHANNEL? 

PUSHJ PDP.RELEAS lYES. RELEASE DEVICE 

POP PDPiUCHN 

SOJGE UCHNiREASS2 

MOVE 0EVDAT,J0BF0V(J0AT) 

MOVE ITEM, JOB ICURRENT JOB NUMBER 

MOVEI TACASSCON (ASSIGN IT BY CONSOLE 

lORM TAC,DEVMOn(OEVDAT) 

EXCH ITEM.{PnPl 

DPB ITEM,PJOBN IPUT IN NEW JOB NUMBER 

POP PDP» ITEM 

JUMPL UUO, ESTOP 

POPJ POP, 

POP PDP,TAC 

JUMPE UU0,ATT4 |JOB NEVER WAS INITIATED 

SETZM siUUD ICLEAR C(AC) 

POPJ POP, 

MOVEI TACNOTDEV I NO SUCH DEVICE 
POP PDP.TACl 
JUMPE UUO.(TAC) 
AOJA UU0,REASE4 

MOVEI TACDEAERZ IWASN'T ASSIGNED 
JRST REASE5 

MOVEI TAC,REaSE7 

JRST REASE5 

MOVE TACl.DEVNAMCOEVDAT) 

MOVE DEV0AT,-2(PDP) IRESTORE TTY DDB 

PUSHJ PDP,PRNAME 

JSP TACFRRMES 

ASCI? / CAN'T RE REASSIGNED 



1155 


001071 


200312 


000000 


REASS2I 


1156 


001072 


550047 


001067' 




1157 


001073 


261140 


000012 




1158 


001074 


306046 


000000 




1159 


001075 


260140 


000000 




1160 


PI01076 


262140 


000012 




1161 


001077 


365500 


001071' 




1162 


001100 


200307 


001072' 




1163 


001101 


200200 


001064' 




1144 


001102 


201040 


400000 


REASS3I 


1165 


001103 


436046 


000004 




1166 


001104 


250203 


000000 




1167 


001105 


137200 


001040' 




1168 


001106 


262140 


000004 




1169 


001107 


321630 


000425' 




1170 


001110 


263140 


000000 




1171 










1172 


001111 


262140 


000001 


REASEll 


1173 


001112 


322600 


001231' 




1174 


001113 


402020 


000014 


REASE4I 


1175 


001114 


263140 


000000 




1176 










1177 


001115 


201040 


000770' 


REASE2I 


1178 


001116 


262140 


000002 


REASE61 


1179 


001117 


3226511 


000000 




1100 


001120 


344600 


001113' 




1181 










1182 


001121 


201040 


000776' 


REASE3I 


11R3 


001122 


254000 


001115' 




1184 










1185 


001123 


201040 


001125' 


REASE6: 


1186 


001124 


2540C,0 


001116' 




1187 


001125 


2001?6 


000000 


REASE7I 


1188 


f01126 


2003513 


777776 




1189 


001127 


260140 


0010?0 ' 




1190 


1^01130 


265040 


002015' 




1191 


001131 


202l?70 


147115 






001132 


521010 


242500 






001133 


512130 


151646 






H01134 


446171 


542610 




1192 


001135 


C6424e 


000000 


/ 


1193 








> 
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1194 
1195 
1196 
1197 
1198 
1199 
i2PI0 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1206 
1209 
1210 
1211 
1212 



001136 
001137 



260140 
254000 



002071' 
002034' 



001140 254000 001164' 



INTERNAL FTATTACH 
IFM FTATTACH, < 

;"ATTACH OEVNAM" -ATTACHES A PREVIOUSLY PARTITIONED DEVICE 
I NOTE-MUST BE LOGGED IN UNDER Cl.l] TO DO THIS 
i "ATTACH N rpROj,,PRDG.:" - ATTACH CONSOLE TO JOB N 
.'CHANGES ADDRESS OF TTY DEVICE DATA BLOCK STORED IN -2(P':P) 
JBY THE COMMAND DECODER 

INTERNAL ATTACH 

EXTERNAL TTY ATT , JOBN, TTYFNO 



ATTACH! IFE FTTTYSER,< 
HOVE AC2,TAC 
PUSHJ PDP.DECIN 
JRST NOTENF 

IFN FTLOGIN, < 
JRST DEVATT 



ISAVE BYTE POINTER) 

IGET JOB NO, 

INOT A NUMBER OR NONE SPECIFIEED 

IWANTS TO ATTACH A DEVICE 



1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 



IFE 



FTLOGIN, < 
JRST ATTl 



001141 
001142 
001143 
001144 
001145 
001146 



001147 
001150 



332000 
301100 
254000 
205540 
616542 
254000 



200000 
260140 



001151 202iaR0 

001152 336i!00 

001153 200734 



001154 3127l':2 

001155 ?5Aes-'Z 



001156 200200 

001157 2601'10 

001160 2540i^0 

001161 2023^3 



001162 260140 

001163 254030 



000002 

001027' 

001206' 

040000 

001031' 

001231' 



000002 
002117' 



000002 
000016 
000637' 



001153' 
001224' 



SKIPE TACl 

CAIU TACl, JOSN 

JRST ATTl 

MOVSI Tl.JNA 

TDNN Tl, JBTSTS(TACI) 

JRST ATT4 
INTERNAL FTLOGIN 
IFN FTLOGIN, < 

MOVE mS.TACl 

pushj pop,pjpgno 



BER7 



MOVEM IDS, TACl 

SKIP»I AC2 

MOVE AC2,PRjPRG( ITEM 



CAME AC2,PRjpRG(TaC1 
JRST ATT3 



10 IS ILLEGAL 

( IS JOS NUMBER TOO BIC7 

I ILLEGAL JOB NUMBER 

(HAS THIS JOB NO BEEN ASSIGNED? 

INO, PRINT ERROR 



000002 MOVE ITEM, TACl ijOB 

000565' PUShJ PDP,TTYATT 

001214' JRST ATT? 

777776 MOVEM DE VDAT , -? ( POP ) 

IFN FTTTVSER,< 

EXTERN TSETBF 
000000 PUSHJ POP, TSETBF 

> 
000000 JR'^T TTVrMD 



ISAVE JOB NO. 

IGET PROJ,-PROG, NOS, ARGMF ERROR, POP "^UPi 

I OFF 1, PRik'T ERROR, AN'' "C -.-T ^^E' "> .£% 

IRESTQRE '. 

IDID USER Type in a prog, prog « IN []'S7 
) INO, ASSUME PR0J,PR0G NU^'BER FOR CURRENT JOB 
I So USER CAN AVOID TYPEING PROjPROG Nf^, IE 
I PROM 1 JOB TO ANOTHER UN1E» SA"r ?poj,3R'> 

) lis THIS THE Same person who dftachfc t^-m 

INO-ERROR 
I YES 

NUMBER TO ITEM 

INP, ATTACH TTY 

lERROR CAN'T ATTACH 

ICHANGE DEV OATA BLOCK ADDRESS 



'. E V L u 



jOd 



ilNITIALIZE TTY INPUT «UFFER 
[ATTACHED, GO SET UP OUTP, BYTE PTR, 
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/RCC 03 JUN 69 

INTERNAL FTLOGIN 

IFN FTLOGIN, < 

OEVATTI IFE FTTTYSER,< 

MOVE TAC,AC2 IRESTORE BYTE POINTER> 

PUSHJ PDP,CTEXT1 (GET DEVICE ARGUMENT 

JFCL ISHOULD NEVER RETURN 

MOVE T.PHJPRGdTEM) IGET PROJi-PROG, NOS. 

CAME T.SYSPP IPRJPRG « Cl,l]? 

JfiST ATT5 (NO - ERROR 

MOVE TAC.TACl )YES-SET UP DEVICE NAME 

PUSH POP.DEVDAT ISAVE DDB FQR THIS TTY 

PUSHJ PDPiDEVSRC ISEARCH FOR DEVICE 

JRST TEMPI INOT FOUND 

LOB T,PJ08N (GET JOB NUMBER 

JUMPN T.ATTS US IT » U? 

DPS ITEM,PJOBN ISET JOB NUMBER 

MOVE TAC,DEVMOD(DEVDAT) I CHECK TO SEE IF THIS IS A TTY 

LDB TACI.PUNIT I 

TLNE TACOVTTY nS IT A TTY? 

HRRM DEVDAT,TTYTA8(T«C1) ISET TRANS TABLE TO POINT TO DDB 

POP PDPiDEVDAT I 

POPj POP, IRETURN 



1247 








124B 








1249 








1250 








1251 








1252 


001164 


260140 


001723' 


1253 


001165 


255000 


000000 


1254 


001166 


200504 


001154' 


1255 


001167 


312530 


0006U' 


1256 


001170 


254000 


001235' 


1257 


001171 


200040 


000002 


1258 


001172 


261140 


000006 


1259 


001173 


260140 


001036' 


1260 


001174 


254000 


001302' 


1261 


001175 


135500 


001105' 


1262 


001176 


326500 


001242' 


1263 


001177 


137200 


001175' 


1264 


001200 


200046 


000004 


1265 


0012^1 


135l?0 


000153' 


1266 


001202 


603040 


000010 


1267 


001203 


542302 


000154' 


1268 


001204 


?62140 


000006 


1269 


001205 


263140 


000000 


1270 
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1271 
1272 

1273 



1274 

127S 
1276 
1277 
1278 
1279 
12S0 



1281 
1282 
1283 
1284 



1285 
1286 
1287 
1288 

1289 
1290 
1291 
1292 
1293 

1294 

1295 
1296 
1297 
1298 

1299 

1320 



001206 
001207 
001210 
001211 
001212 
001213 

001214 
001215 
001216 
001217 
001220 
001221 
001222 
001223 



265040 
446311 
406304 
411011 
412132 



002015' ATTll 
442516 
045236 
652632 
206424 / 



200106 
200303 
260140 
265040 
202031 
406H3 
522510 
426101 



000000 ATT2I 

777776 

001127> 

002015' 

451212 

120202 

141620 

505000 / 



001224 265040 002015' ATT3| 

001225 416031 623650 

^01226 202032 452100 

001227 522364 045236 

001230 410321 200000 / 



001231 265040 

001232 472372 

001233 202251 

001234 050000 



001235 
001236 

001237 
001240 
001241 

001242 

001243 
001244 
001245 
001246 



265040 
416031 
202032 
422132 

000000 

262140 
265040 
536032 
521010 
064240 



002015' ATT41 
420202 
741032 
000000 / 



002015' ATTSi 
623650 
452100 
606424 / 

000000 



000006 

002015' 

347116 

442650 

000000 



ATT6I 



JSP TAC.ERRMES 

ASCIZ /ILLEGAL JOB NUMBER 



MOVE TAC1,0EVNAM(DEV0AT) (PRINT PHYSICAL NAME 

MOVE DEV0AT,-2(PDP) IRESTORE TTy DD8 

PUSHJ PDP.PRNAME 

JSP TACiERRMES 

ASCIZ / ALREADY ATTACHED 



JSP TAC.ERRMES 

ASCIZ /CAN'T ATT TO JOB 



JSP TAC.ERRMES 
ASCIZ /NOT A JOB 



JSP TAC.ERRMES 
ASCI? /CAN'T ATT DEV 



POP PDP.DEVOAT 
JSP TAC.ERRMES 
ASCIZ /WASN'T DET 
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/RCC 03 JUN 69 

INTERNAL FTATTACH 
IFM FTATTACH, < 

("DETACH" - DETACH CONSOLE FROM JOB 

|"DETACH DEVNAM" - DETACHES nEVICE FROM THE SYSTEM SOFTWAREWISE 

) NOTE - MUST BE LOGGED IN UNDER [1,13 TO OQ THIS 

EXTERNAL TTYDET 
INTERNAL FTLOGIN 

IFF FTLOGIN, < 

DETACHI JRST TTYDET (GO DETACH TTY 

> 

IFN FTLOGIN, < 

EXTERNAL PRjPRG,SYSPP,PUNlT,TTYTAB,PJOBN 

0017231 DETACHI PUSHJ PDP.CTEXTl (GET ARGUMENT 

JUMPE TACl, TTYDET (ONLY "OET" TYPED 

MOVE T,PRJPRG(ITEM) (GET PROJ.-PROG. NUMBER 

CAME TiSYSPP (PRJPRG « Cl,l]? 

JRST LOGERl INO-PRINT ERROR MSG, 

MOVE TACTACl lYES-SET UP DEVICE NAME 

PUSH PDP.DEVOAT (SAVE TTY ODB 

PUSHJ PDP.DEVSRC (SEARCH FOR DEVICE 

jRST TEMPI (DEVICE NOT FOUND 

MOVE TAC,DEVMOD(DEVDAT) (CHECK TO SEE IF THIS IS DSK 

TLNE TAC.DVOSK |IS IT THE DSK? 

JRST TEMPI (YES-PRINT ERROR MSG. 

MOVE! TAC1,ASSC0N (FOUND-SET UP ASSliJNED BY CONSOLE 

PUSHJ PDP.ASSASG (TRY TO ASSlfiN 

JRST TEMP2 (CAN'T ASSIGN 

TLNE DEVDAT.SYSDEV (IS THIS SYSTEM DEVICE? 

JRST TEMPI (YES-PRINT ERROR MSG. 

XOP T.T (NO-SET TO 2ERn 

DPB T.pjoBN (SET JOB NO, TO NULL JOS 

MOVE TAC,DEVM0O(DEVDAT) (CHECK TO SEE IF THIS IS A TTY 

TLNN TACOVTTY US IT A TTY? 

JRST ,*4 (NO-GO AHEAD 

LD8 TACPUNIT (YES-SET UP FOR SCNSER 

"^OVEI TACl.-l (SET LEFT HALVE OF TTYTAB TO -1 

HRRm TACl,TTYTAB(TAC) (SO THAT SCNSER CHECKS FOR THIS 

POP PDP.DEVOAT (RESTORE TTY DDd 

POPJ POP, (SUCCESSFUL RETURN 



1301 








13ei2 








1303 








1304 








1305 








1306 








1307 








1308 








1309 








1310 








1311 








1312 








1313 








1314 








1315 








1316 








1317 


001247 


260140 


0017231 


1318 


001250 


322100 


000000 


1319 


001251 


200504 


001166' 


1320 


001252 


312500 


001167' 


1321 


001253 


254000 


001305' 


1322 


001254 


200040 


000002 


1323 


001255 


261140 


000006 


1324 


001256 


260140 


001173' 


1325 


001257 


2540550 


001302' 


1326 


001260 


200046 


000004 


1327 


001261 


603040 


200000 


1328 


001262 


254000 


001302' 


1329 


001263 


201100 


400000 


1330 


001264 


260140 


000672' 


1331 


001265 


254000 


001304- 


1332 


001266 


603300 


000100 


1333 


P01267 


254ei(»0 


001302' 


1334 


!?'01270 


430500 


000012 


1335 


?01271 


1375?'0 


001177' 


1336 


001272 


200046 


000004 


1337 


001273 


607040 


000010 


1338 


001274 


254000 


001300' 


1339 


001275 


135040 


001201' 


1340 


001276 


201100 


777777 


1341 


001277 


5421Z1 


001203' 


1342 


001300 


262140 


000006 


1343 


001301 


263140 


000000 
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1344 


001302 


262140 


000006 


TEMPI! POP PDP.DEVDAT 


1345 


001303 


254000 


000770' 


JRST OEAERl 


1346 


001304 






TEMP2I 


1347 








IFE FTTTYSER.< POP PDP.OEVDAT 


1348 








JRST ASSER1*1 


1349 








> 


1350 








IFN FTTTYSER,< 


1351 


001304 


254000 


000707" 


JRST ASSERl 


1352 








> 


13S3 


001305 


265040 


002015' 


LOGERll JSP TACERRMES 


1354 


001306 


416031 


623650 


ASCIZ /CAN'T DET OEV 




001307 


202110 


552100 




1355 


001310 


422132 


606424 


/ 




001311 


000000 


000000 




1356 








>> ICLOSE BOTH FTi OCIN ANI 



JRESTORE TTY DOB 

JPRINT ERROR MSB, AND RETURN 

(RESTORE TTY DDB 
IPRINT ERROR MSC, AND RETURN 
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/RCC as JUN 69 

1357 ("DAYTIME" - PRINT TIME OF DAY 

1358 

1359 EXTERNAL T I ME , THSDAT , MONTAB , J IFMI N 

1362 

1341 001312 DAVTIMI 

1362 IFN FTLOGIN, < 

1363 001312 322200 001330' JUMPE ITEMiDAYTMl 

1364 001313 260140 002071' PUSHJ PDP.DECiN (WAS AN ARGUMENT TYPED? 

1365 001314 254000 001330' JRST OAYTMl INOi PRINT TIME 

1366 001315 254i300 002000' jRST COMERA lERROR 

1367 001316 5541244 001251' HLRZ T AC , PRJPRG ( I TEM ) lYES 

1368 001317 302040 000001 CAIE TAC.l IIS THIS PROJECT 1? 

1369 001320 254000 001330' JRST DAYTMl (NO, PRINT TIME OF DAY ANYWAY ( IGNORE ARG) 

1370 001321 200040 000002 MOVE TAC.TACl lYES, RESET TIME ACCORDING TO ARGUMENT 

1371 001322 231040 000144 IDIVI TAC.»O100 

1372 001323 221040 000074 IMULI TACi»D60 I 

1373 001324 270040 000002 ADD TAC.TACl (COMPUTE MINUTES 

1374 001325 221040 000000 IMULI TAC.JIFMIN I COMPUTE JIFFIES 

1375 001326 202040 000000 MOVEM TAC.TIME lAND STORE 

1376 001327 263140 000000 POPJ POP, 

1377 > 

1378 001330 200040 000000 OAYTNIli MOVE TAC.THSDAT IPRINT TODAY'S DATE 

1379 001331 231040 000037 IDIVI TAC.»D31 

1380 001332 250040 000002 FXOH TAC.TACl IYEAR AND MONTH IN TACl 

1381 001333 260140 000000 PUSHJ PDPjDECPl lADD 1 TO OAYdN TAC) AND PRIMT DECIMAL 

1382 001334 201040 000000 MOVEI TAC." 

1383 001335 235040 000014 OIVI TAC, tD12 

1384 001336 250040 000002 EXCH TAC.TACl 

1385 001337 200041 000000 MOVE TAC . MONTAB ( TAC ) (MONTH 

1386 001340 137040 003062' DPB TAC.CPOINT 21, OAMESS, 27 2 

1387 001341 201040 000000 MOVEI TACiDAMESS 

1388 001342 260140 002017' PUSHJ POP.CONMFS (PRINT DAY 

1389 001343 201042 000100 MOVEI TAC . '064 ( TACl ) 

1390 001344 260140 000530' PUSHJ PDP.RAOXHi) (PRINT YEAR 

1391 001345 260140 002032' PUSHJ PDP.PRSPC 

1392 001346 200040 001326' MOVE TAC, TIME (PRINT TIME OF DAY 

1393 001347 254000 002174' JRST PRTIMl 
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1394 








1395 








1396 








1397 








1398 








1399 








1400 








1401 








1402 








1403 


001350 


260140 


002071' 


1404 


001351 


254000 


001413' 


1405 


001352 


254000 


002000' 


1406 


001353 


322100 


001360' 


1407 


001354 


301100 


001142' 


1408 


001355 


254000 


001206' 


1409 


001356 


200042 


000064' 


1410 


001357 


254000 


002146' 


1411 








1412 


001360 


260140 


002025' 


1413 


001361 


516210 


646100 




001362 


000000 


000000 


1414 


001363 


200040 


000000 


1415 


001364 


231040 


000000 


1416 


001365 


260140 


002146' 


1417 


001366 


260140 


002025' 


1418 


001367 


552071 


751100 




001370 


000000 


000000 


1419 


001371 


200040 


000000 


1420 


001372 


231040 


001364' 


1421 


001373 


260140 


002146' 


1422 


001374 


260140 


002025' 


1423 


001375 


462372 


352100 




001376 


000000 


000000 


1424 


001377 


200040 


000000 


1425 


001400 


260140 


002146' 


1426 


001401 


260140 


002025' 


1427 


001402 


472531 


446100 




001403 


000000 


000000 


1428 


001404 


200040 


001356' 


1429 


001405 


260140 


002146' 


1430 


001406 


260140 


002025' 


1431 


001407 


5264^4 


020100 




001410 


000000 


000000 


1432 


001411 


200040 


000000 


1433 


001412 


254000 


002146' 


1434 









INTERNAL FTTIME 

IFN rTTIMEi< 

("TIME (JOB NO.)" - PRINT TOTAL AND INCREMENTAL RUNNING TIME FOR A JOB 

IFOLLOWED BY KILO-CORE TICKS 

J"T!ME 0" IMPLIES RUNTIME FOR NULL JOB AND THE TOTAL TIME SPENT SHUFFLING USERS 

; IF NO JOB NO, GIVEN-TIME WILL BE FOR CURRENTLY LOGGEN IN JOB NO. 

EXTERNAL RTIME .TTIME.SHFWRD, WDPJIF, JOBN. JSTSTS.CLRWRO.LSTMRO 



RUNTIMl PUSHJ PDPiDEClN 
JRST RUNl 
JRST COMERA 
JUMPE TAC1.RUN2 
CAIL TACl.JOBN 
JRST ATTl 

MOVE TAC,TTIME(TAC1) 
JRST PRTIME 

RUN2I PUSHJ PDP.INLMES 

ASCI? /SHFL / 

MOVE TAC.SHFWRD 
IDIVI TAC.WOPJIF 
PUSHJ POP, PRTIME 
PUSHJ PDP.INLMES 
ASCI? /ZCOR / 



MOVE 


TAC.CLRWRD 


IDIVI 


TAC.WDPJIF 


PUSHJ 


POP. PRTIME 


PUSHJ 


PDP.INLMES 


ASCI? 


/LOST / 


MOVE 


TACiLSTHRD 


PUSHJ 


PDP, PRTIME 


PUSHJ 


PDP.INLMES 


ASCI? 


/NULL / 



MOVE TAC.TTIME 
PUSHJ PDP, PRTIME 
PUSHJ PDP.INLMES 
ASCI? /UP / 

MOVE TAG, UPTIME 
JRST PRTIME 



IGETJOB NO, ARC, 

;N0 ARG, GIVEN - LOGGED IN? 

I ILLEGAL DECIMAL CHARACTER RETURN 

(RUNTIME GIVEN 

IJOB NO, TOO BIG? 

)YES. ILLEGAL JOB. NO, 

ITIME SINCE LAST LOGGIN 

(PRINT AND RETURN 

(PRINT 

("SHUFFLING " 

(NO, WORDS SHUFFLED 
(NO.WOROS/JIFFY USING BLT 
(PRINT SHUFFLE TIME 



(PRINT TIME SPENT CLEARING CORE 



(PRINT TIME SPENT "LOST" RUNNING NULL JOB ^ 

(PRINT 

("NULL TIME " 

(PRINT NULL JOB RUNNING TIME 

( 

(PRINT TOTAL SYSTEM UP TIME 



(AND RETURN 
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1435 001413 RUNll 



1436 








irE 


FTLOGIN,< 


1437 










MDVEI TAC.0 


1438 








> 




1439 








IFN 


FTLCGIN,< 


1440 


001413 


205040 


000004 




MOVSI TACJLOG 


1441 


001414 


636044 


001145' 




TDZN TACJBTSTSdTEM) 


1442 


(501415 


254000 


002034' 




JRST NOTENF 


1443 








> 




1444 


001416 


250044 


0000631 




EXCH TAC.RTIMEdTEM) 


1445 


001417 


260140 


002146' 




PUSHJ PDP,PRTIME 


1446 


001420 


200044 


001404' 


PRTTIMl MOVE TAC.TTlMEdTEM) 


1447 








IFN 


FTKCT,< 


1448 


001421 


260140 


002146' 




PUSHJ PDP.PRTIME 


1449 










EXTERN JRTKCT 


1450 


001422 


260140 


002025' 




PUSHJ PDP.INLMES 


1451 


001423 


456231 


447532 




ASCI? /KILO-CORE-SEC«/ 




001424 


416372 


242532 








001425 


516130 


336400 






1452 


001426 


?00044 


000065* 




MOVE TACJBTKCTCITEMI 


1453 


001427 


231040 


000000 




IDIVI TACJIFSEC 


1454 


001430 


250140 


001344 ' 




PUSHJ POPiRaOX10 


1455 


001431 


25405'.0 


002016' 




JRST CRLF 


1456 








> 




1457 








IFE 


FTKCT.< 


1458 










JRST PRTIME 


1459 








> 




1460 








> 





)GET SET TO CUEAR INCREMENTAL RUN TIME 



IIS JOB LOGGED 1N7 

ITEST JOB STATUS BITS AND CLEAR TaC ALWAYS 

INO, NEED MORE ARGUMENTS 

IGET CURRENT [NCR, TIME AMD CLEAR 
IPRINT TIME SINCE LAST TIME COMM, 
IGET TOTAL ACCUMULATED TIME 



IPRINT "K»CPUSEG= 



IPRODUCT OF NO, OF K CORE* NO, OF JIFFIES RUN 
IAT that SIZE, CONVEIRT TO KILO CORE SECONDS 
lAND PRINT IN DECIMAL 
IPRINT IRLF 



IPRINT IT AND RETURN 
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1<I61 








(ROUTINE TO LET TTV TALK TO AN 


1462 








t 


"TALK TTYN" 


1463 








1 


TTYN NEED NEVER HAVE B 


1464 












1465 








INTERNAL FTTALK 


1466 












1467 








IFN FTTALK, < 


146B 








EXTERNAL TTYTLK 


1469 












1470 


001432 


260140 


001723' 


TALK! 


PUSHJ PDPiCTEXTl 


1471 


001433 


322100 


001442' 




JUMPE TACliTALK2 


1472 


001434 


200040 


000002 




MOVE TACTACl 


1473 


001435 


260140 


001256' 




PUSHJ PDPiDEVSRC 


1474 


001436 


254000 


001445' 




JRST TALKl 


1475 












1476 


001437 


260140 


000000 




PUSHJ PUP. TTYTLK 


1477 


001440 


254000 


001445' 




JRST TALKl 


1478 


001441 


263140 


000000 




POPJ POP, 


1479 












1480 


001442 


205230 


003400 


TALK2! 


MOVSl ITEM.NOINCK 


1481 


001443 


202203 


777777 




MOVEM ITEM,-1(P0P) 


1482 


(»01444 


254000 


002034' 




JRST NOTENF 


1483 












1484 


001445 


200303 


777776 


TALKl! 


MOVE DEVDAT,-2(PDP> 


1485 


001446 


2052(10 


000400 




MOVSI ITEM.NOINCK 


1486 


001447 


202203 


777777 




MOVEM ITEM.-l(PDP) 


1487 


001450 


265040 


002015' 




jSP TACERRMES 


1488 


001451 


412532 


354432 




4SCIE /BUSY 


1489 


001452 


050000 


000000 


/ 




1490 








> 





IGET ARGUMENT 
INONE SPECIFIED 

•SEARCH FOR OEVICE 

IDEVSRC SHOULD FIND A FREE TTY DOB 

( EVEN IF TTY NEVER TYPED ON YET 



ISET FLAGS SO RESPONSE tJILL PRINT 



(RESTORE TTY DOB 

(SET FLAGS TO PRINT RESPONSE 
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/RCC 03 JUN 69 

INTERNAL FTEXAMINE 

IFN FTEX4MINE,< 

;"EXAM1NE LOC" - LOOKS A CONTENTS OF LOC AND PRINTS IN OCTAL 

lIF LOC IS MISSING. NEXT LOC IS PRINTED 

I IF PREVIOUS WAS E COMMAND. SAME LOC IF PREVIOUS WAS D COMMAND 
ITAB. IS PRINTED INSTEAD OF CRLF(LIKE DDT) 

EXTERNAL TPOPJ.JOBPC 

ECOMi SKIPGE JOBEXM(JOAT) (WAS PREVIOUS D OR E COMMAND, A D COMMAND? 

AOS JDBEXM<JOAT) INO, IT WAS AN E, INCREMENT IN CASE HE TYPES NO ARG 

HRRDS JOBEXM(JDAT) lYES. FLAG THAT E HAPPENED LAST(LH=-1) 

PUShJ PDP.OCTIN IGET octal LOCATION 

SKIPA TAC1,J0BEXM(J0AT) INONE SPECIFIED. USE LAST LOC OF D OR NEXT OF E 

JRST COMERA I ILLEGAL CHARACTER 

PUSHJ POP.DEAT ICHECK FOR AC REFERENCE AND STORE JQBEXM 

HRRZ UUO.TACl J IGNORE LH 

HRLI UUOiPROG )SET TO RELOCATE 

PUSHJ POP.GETWRO IGET WORD FROM LOW OR HIGH SEG 

JRST ECOMA (ERROR. OUT OF BOUNDS 

PUSH PDP.TAC ISAVE CONTENTS OF LOC TO BE PRINTED 

HRRH TAC, JOBEXM( JDAT) IPRINT LOC BEING EXAMINED 

PUSHJ PDP.OCTPNT 

PUShJ POP.INLMES IPRINT SLASH TAB 

ASCIF •/ • 

HLR2 TAC.CPDP) IPRINT LEFT HALF 

PUSHJ PDP.OCTPNT 

PUSHJ PDPilNLMES IPRINT SPACE 

ASCI? / / 

HRRZ TAC, (POP) IPRINT RIGHT HALF 

PUSHJ PDP.OCTPNT 

PUSHJ POP.INLMES iPRlNT FINAL TAB 

ASCI? / / 

JRST TPQPJ IPOP PDP.TAC.POPJ POP, 



1491 








1492 








1493 








1494 








1495 








1496 








1497 








1498 








1499 








i.5ee 








1501 








1502 


001453 


335007 


000000 


1503 


001454 


350007 


001453' 


1504 


001455 


563007 


001454' 


1505 


001456 


260140 


002073' 


1506 


001457 


334107 


001455' 


1507 


001460 


254000 


002000' 


1508 


001461 


260140 


001535' 


1509 


001462 


550600 


000002 


1510 


001463 


505600 


000007 


1511 


001464 


260140 


002234' 


1512 


001465 


254030 


001550' 


1513 


001466 


261140 


000001 


1514 


001467 


550047 


001457' 


1515 


001470 


260140 


000000 


1516 


001471 


260140 


002025' 


1517 


001472 


274220 


000000 


1518 


001473 


554043 


000000 


1519 


001474 


260140 


001470' 


1520 


001475 


260140 


002025' 


1521 


001476 


200000 


000000 


1522 


001477 


550043 


000000 


1523 


001500 


260140 


001474' 


1524 


001501 


260140 


002025' 


1525 


001502 


044000 


000000 


1526 


001503 


254001) 


000231' 
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1527 








1528 








1529 








1530 








1531 








1532 








1533 


001504 


260140 


002073' 


1534 


001505 


254000 


002034' 


1535 


001506 


2540510 


002000' 


1536 


001507 


506100 


000000 


1537 


001510 


260140 


002073' 


1538 


001511 


254000 


002034' 


1539 


001512 


254000 


0020001 


1540 


001513 


542100 


000000 


1541 


001514 


331007 


001467' 


1542 








1543 


001515 


350007 


001514' 


1544 








1545 


001516 


553007 


001515' 


1546 


001517 


260140 


002073' 


1547 


001520 


334107 


001516' 


1548 


001521 


254000 


002000' 


1549 








1550 








1551 


001522 


260140 


000441' 


1552 








1553 








1554 








1555 








1556 


001523 


606100 


777760 


1557 


001524 


254000 


001531' 


1558 


001525 


554040 


000007 


1559 


001526 


303100 


000000 


1560 








1561 


001527 


313100 


000001 


1562 


001530 


254000 


001545' 


1563 


001531 


260140 


001535' 


1564 


001532 


505100 


000007 


1565 


001533 


202020 


000002 


1566 


001534 


263140 


000000 


1567 








1568 









("DEPOSIT UH RH tOC" - DEPOSITS XWD LH.RH IN LOCATION LOC 

(IF UOC IS MISSING. ASSUME NEXT LOC IF PREVIOUS D, SAME LOC IF PREVIOUS F 



EXTERNAL JOBEXM, JOBPF I 

OCOMI PUSHJ PDP.OCTIN 
JRST NOTENF 
JRST COMERA 
HRLM TACl.IOS 
PUSHJ POP.OCTIN 
JRST NOTENF: 
JRST COMERA 
HRRM TACl, IDS 
SKIPL JOBEXM(JDAT 

AOS JOBEXM(JDAT) 

) 
HRRES JOBEXM(JDAT 
PUSHJ POP.OCTIN 
SKIPA TACl.jOBEXM 
JRST COMERA; 
IFN FT2REL.< 

EXTERN CHKMEO 
PUSHJ PDP.CHKMED 



DCOMII 



TRNN TACl, 777760 
JRST DCDMl 
HLR2 TACPROG 
CAILE TACl.JOBPFI 

OAMLE TACl.TAC 
JRST DCOMA 
PUSHJ PDP.DEAT 
HRLI TACl.PRnG 
MOVEM lOS.STACl 
POPJ POP, 



IGET LH 

)NOT ENOUGH ARGUMENTS 

(ILLEGAL CHARACTER 

(SAVE LH 

(GET RH 

(NOT ENOUGH ARGUMENTS 

(ILLEGAL CHARACTER 

(SAVE RH 
I (WAS PREVIOUS D OR E AN E COMMAND? 
LH»-1 IF E. LH=0 IF 

(NO, INCREMENT IN CASE USER TYPED NOT THIlliD ARG 
FOB SUCCESSIVE D'S 
) (FLAG That a D has done LAST(LH=0) 

(GET LOC 
(JOAT) (NOT SPECIFIED, USE LAST OF E OR NEXT OF ID 

(ILLEGAL CHARACTER 



(CHECK TO SEE IF HIGH SEG IS SHARABLE 
( IF YES, SET USER-MODE WRITE PROTECT (UWP) ON 
( FOR THIS USER, AND SET MEDDLE FOR THIS USER 
( SO HE CANNOT TURN UWP OFF 

(IN USER ACS 

(YES 

(GET PROTECTION 

(NO, GREATER THAN HIGHEST LOC, PROTECTED ■ 

( FROM ID IN JOB DATA AREA? 

( IN BOUNDS? 

(NO 

(CHECK FOR AC REFERENCE 

(SET FOR RELOCATION 
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1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1563 
1584 
1585 
1586 
1587 

1588 

1589 
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IJ01535 
001536 

001537 

001540 
001541 
001542 
001543 
001544 

001545 



001545 
001546 
001547 

001550 
001551 
001552 

001553 
801554 



621100 
542107 

301100 
263140 
200047 
603040 
271100 
263140 



260140 
254000 
263140 

265040 
476532 

431010 
472112 

000B00 



777777 DEATI TLZ TAC1,-1 

001520' HRRM TAC1,J0BEXM(JDAT) 

000020 CAIL TACl.20 

000000 POPJ POP, 

000000 MOVE TACJOBPCtJOAT) 

010000 TUNE TAC.USRMOD 

000020 ADDI TACl,20 

000000 POPJ POP, 

DCOMAi 

IFN FT2REL.< 

EXTERN HGHDEP 

PUSHJ POP, HGHDEP 

JRST ECOMA 

POPJ POP, 



000000 
001550' 

000000 

002015' 

420236 

247652 

306424 

000000 



ICLEAR UH IN CASE THIS IS A SUCCESSIVE E WITH NO ARG 

(STORE FOR NEXT TIME, 00 NOT TOUCH LH(D flR E UASTI 

I YES, WAS JOB STOPPED IN USER MODE? 

) IS IT AN AC7 
INO 

(USER MODE? 

(YES USER *CS ARE AT 20 INflTEAD OF 



(IS IT IN BOUNDS AND ALLOWED IN HIGH SEG? 

(NO, PRINT "OUT OF BOUNDS" 

(YES, lOS DEPOSITED, AND JOBEXM UPDATED 



ECOMA! 



JSP TACERRMES (OUT OF BOUNDS 
ASCIE /OUT OF BOUNDS 
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1590 IFN FTLOGIN,< 

1591 ("SCHEDULE OCTN" - SETS RH OF STATES TO OCTN, IF TYPED FROM 

1592 I THE OPERATOR CONSOLE (C(OEVOPR)). OTHERWISE ILLEGAL 

1593 ("SCHEDULE" WITH NO ARGUMENT TYPES OUT HH OF STATES. LEGAL FOR ALLi 
1594 

1595 EXTERN DEVOPR, STATES, OCTPNT 
1596 

1597 001555 260140 002073' SKEOUL: PUSHJ PDP.OCTIN (GET THE ARGUMENT IF ANY 

1598 001556 254000 001565' JRST SKEOl INO ARGUMENT 

1599 001557 254000 002000' jRST COMERA (BAD SYNTAX IN OCTAL NUMBER 

1600 001560 200046 000000 MOVE TAC, DEVNAM ( DEVOAT ) )AN ARGUMENT. IS THIS THE CPR7 

1601 001561 312040 000000 CAME TAC, DEVOPR 

1602 001562 254000 002001' JRST COMERR INO, THIS IS ILLEGAL, THEN. 

1603 001563 542100 000000 HRRM TACl, STATES lYES. STORE ARGUMENT IN RH OF STATEiS 
16PI4 001564 263140 000000 POPJ PDP,0 IRETURN 

1605 

1606 001565 550040 001563' SKEDH HRRE TACSTaTES ISCHEDULE WITH NO ARGUMENTS. 

1607 001566 260140 001500' PUSHJ POP, OCTPNT (PRINT RH OF STATES, 

1608 001567 254000 002016' JRST CRLF (AND RETURN WITH A CRLF 

1609 > 

1610 ("BLANK" OR MO ALPHA NUMERIC BEFORE BREAK CHAR COMMAND 

1611 (DISPATCHED TO LIKE ANY OTHER COMMANOIO IN COMMAND TABLE) 
1612 

1613 

1614 001570 CBLANKi 

1615 IFE FTTTYSER.< 

1616 LOB TEM,TAC (GET BREAK CHARACTER 

1617 CAIE TEM,15 (IS IT A CR 

1618 > 

1619 IFN FTTTYSER.< 

1620 (101570 302400 000012 CAIE TEM,12 (MAS BREAK A LF 

1621 > 

1622 001571 306400 000073 CAIN TEM, iNO, IS IT SEMI COLON ( MQN I TOR COMMENT) 

1623 1501572 263140 000000 POPJ POP, (YES, IGNORE 

1624 ( FALU IN UNKNOWN COMMAND 
1625 

1626 (COMMAND NOT IN COMMAND DIRECTORY 

1627 

1628 001573 254030 002001' NOCOM( JRST COMERR (NO, APPEND 7 TO WHAT HE TYPED IN 
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IFN FTriNISH,< 

; "FINISH DEVICE" - CLOSES , RELEASE AND DEASSIGNS DEVICE 

IJOB MUST HAVE CORE 

EXTERNAL USR JDA , PUUOAC, JOBi USRHCUi JOBFDV. SYSTAP 
CFINIl PUSHJ PDP.CTEXn IGET DEVICE NAME 

JUMPE TACl.NOTENF (NOT ENOUGH ARG, IF NONE 
SKIPA TAC.TACl ISEARCH FOR 5IXBIT DEVICE NAME 

CFINSI MOVE TAC, SYSTAP (HERE ON CONTROL C ON SYSTEM TAP!! USER 

I DO A FINISH SYS COMMAND FOR HIM 
PUSHJ PDP.DEVSRC 

JRST NOTDEV (PRINT NOT A DEVICE 

HRREM DEVOAT, JOSFDVUDAT) ISTQRE DDB ADR. IN JOB DATA AREA 
MOVE DEVOAT, -2(PDP) 
jSP TACl.MSTART ISETUP MONITOR JOB AND RETURN 

I RETURN HERE AT UUO LEVEL WHEN SCHEDULED 
JSP TACMONSTR ISETUP ACS i PROG , JOAT , POP 

MOVE UCHN,USRHCU (HIGHEST USER 10 CHANNEL IN USE 
FDVl! HRRE DEVDAT,USRJDA(UCHN) (GET NEXT DEVICE 
MOVSI UUO<f71000 ISETUP RELEASE UUO 
□PB UCHN, PUUOAC IMITH CHANNEL NO. 

PUSH PDP.UCHN 

CAMN DEVDAT,J0BFDV(JDAT) IIS THIS DEV. THE ONE TO RELEASE? 
XCT UUO lYES. RELEASE ITIAND CLOSE) 

POP PDP.UCHN 

SOJGE UCHN. FDVl IFINISHEO? 

MOVE ITEM. JOB IGET JOB NUMBER 

MOVE DEVDAT,JOBFDV(JDAT) IRESET OEVDAT 
PUSHJ PDP.DEASG JDEASSIGN DEVICE 

JFCU 1 IGNORE IF NOT ASSIGNED BY CONSOLE 

JRST ESTOP ISTOP JOB SO HE CANNOT CONTINUE 

1660 > 



1629 








1630 








1631 








1632 








1633 








1634 


001574 


260140 


001723' 


1635 


001575 


322100 


002034' 


1636 


001576 


334040 


000002 


1637 


001577 


200040 


000705' 


1638 








1639 


001600 


260140 


001435' 


1640 


001601 


254000 


000770' 


1641 


001602 


552307 


001100' 


1642 


001603 


200303 


777776 


1643 


001604 


265100 


001057' 


1644 








1645 


001605 


265040 


001060' 


1646 


001606 


200500 


001070' 


1647 


001607 


550312 


001071' 


1648 


001610 


205600 


071000 


1649 


001611 


1375PI0 


001006' 


1650 


001612 


261140 


000012 


1651 


001613 


316307 


001602' 


1652 


001614 


256000 


000014 


1653 


001615 


262140 


000012 


1654 


001616 


3655l?0 


001607' 


1655 


001617 


200200 


001101' 


1656 


001620 


200307 


001613' 


1657 


001621 


260140 


002043' 


1658 


001622 


255000 


000000 


1659 


001623 


254000 


001107' 
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1661 IFN FTTIME,< 

1662 ("RESOURCES" - PRINT OUT AVAILABLE DEVICES AND FREE BLOCKS ON THE DISK 
1663 

1664 EXTERNAL DEVLST 

166S 

1666 001624 FREDEVl 

1667 IFN FTDISK. < 

1668 EXTERNAL SATENT , SATXMD i WLB I T , SENTSE. NUMB IT 
1669 

1670 001624 430040 000001 XOR TACTAC UNITIALIZE COUNTER 

1671 001625 574600 000000 HLRE T2,SATXW0 ISET INDEX WITH NUMBER OF SAT BLOCKS IN EXISTENCE, 

1672 001626 213000 000014 MOVNS T2 

1673 001627 541540 000000 HRRI Tl.SATENT IGET SATENT ENTRY POINTER 

1674 001630 550113 000000 LOP05I HRRZ TACl,fl(Tl) IGET VALUE 

1675 001631 602100 000000 TRNE TACl.WLBIt IIS THIS SPACE WRITE PROTECTED? 

1676 001632 2540H0 001635' JRST LOP06 )YES. NO FREE BLOCKS IN THIS SAT BLOCK, 

1677 001633 271040 000000 ADDI TACNUMBIT )N0, ADD THE FOLLOWING QUANTITY INTO THE 

1678 PI01634 274040 000002 SUB TAC,TAC1 ) RUNNING TOTAL! (TOTAL BLOCKS IN THIS SaT 

1679 ) BLOCK) - (BLOCKS ALREADY IN USE), 

1680 001635 271540 000000 LOP06i AODI Tl.SENTSZ (BUMP POINTER 

1681 001636 3666^0 001630' SOJN T2,LOP05 IDECREMENT INDEX 

1682 001637 260140 001430' PUSHJ PDP,RAOX10 ICONVERT TO HECIMAL 

1683 001640 260140 002025' PUSHJ POP.INLMES )PR1NT 

1684 0B1541 271010 246226 ASCI? /. BLKS/ 
001642 514000 000000 

1685 > 
1686 

1667 001643 554500 000652' HLRZ T, DEVLST IGET DOB POINTER 

1688 001644 201700 000000 MOVEI AC2(0 ISET DEVICE NAME FOR FIRST COMPARE 

1669 001645 200552 000004 LOP01 r MOVE T1,DEVM0D(T> IDEVICE CHARACTERISTICS 

1690 001646 606540 600000 TRNN Tl , ASSCON ! ASSPRG IDEVICE ASSIGNED BY CONSOLE OR PROGRAM? ; 

1691 001647 603540 200010 TLNE Tl , DVTTY ! DVOSK INO, IS IT A TTY OR DSK? 

1692 001650 254000 001662' jRST LOP02 lYES 00 NOT PRINT 

1693 IFE FTDISK, < 

1694 JUMPE AC2.LOP01B ISUPPRESS LEADING COMMA IF NO DISK 

1695 > 

1696 001651 260140 002025' PUSHJ PDP.INLMES IPRINT .(INSTEAD OF CRLF SO WILL FIT IN 1 RUFFEP) 

1697 001652 260000 003000 ASCI? /,/ 

1698 001653 204652 000000 LOP01BI MOVS ACl , DEVNAM ( T) IGET OEylCE NAME 

1699 001654 510100 000015 HLLE TACl.ACl lASSUME SAME TYPE AS LAST ONE, PRINT 

1700 I ONLY RH or NAME (UNIT NUMBER) 

1701 001655 306715 000000 CAIN AC2,0(AC1) IIS IT REALLY THE SAME? 

1702 001656 254000 001661' JRST LOP01A lYES. PRINT THE UNIT NUMBER, 

1703 001657 204li?0 000015 MOVS TACl.ACl INO, MUST PRINT WHOLE NAME, 

1704 001660 550700 000015 HRRZ AC2,AC1 I AND GET THE NEW DEVICE IN FLAG AC. : 

1705 001661 260140 001216' LOP01A! PUSHJ PDP.PRNAME IAS BEING FREE 

1706 001662 554512 000003 LOP02! hlR£ T,DEVSER(T) IGET NEXT DEVICE IN CHAIN I 

1707 001663 3265K0 001645' JUMPN T,LOP01 I IS THERE ONE? 

1708 001664 2540(»0 002016' JRST CRLF INO, DONE, PRINT CR. LF AND THEN POPJ 

1709 > 
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1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 



001665 
001666 
001667 
001670 
001671 
001672 
001673 
001674 
001675 



3162P0 
2540C;0 
322340 
260140 
254000 
200103 
200303 
200504 
263140 



EXTERNAL CPOPJ.STUSER 

JROUTINE TO CHECK FOR ACTIVE DEVICES 

INEVER GET HERE DURING SWAP IN OU OUT 

;SINCE COMMAND TA9LE SHOULD HAVE NOTRAN BIT ON 



000455' RUNCHKI CAMN ITEM.STUSER 
001677- JRST OLYCMl 

001672' ACTCHKI JUMPE PROG.ACTCHl 
000000 PUSNJ PDP.ANYACT 

001676' JRST DLYCM 

777777 ACTCHl! MOVE TACl.-KPDP) 
777776 MOVE DEVDAT , -2 ( POP ) 

001414' MOVE T.JBTSTSl ITEM) 

000001' CONTClI POPj POP,COM0 

IROUTINE TO DELAY A COMMAND 



(SYSTEM TAPE USER? 

lYES, DELAY, BUT DO NOT STOP JOB 

IDOES JOB HAVE CORE IN MEMORY? 

lYES. ARE DEVICES ACTIVE? 

lYESi DELAY COMMAND, 

•RESTORE COMMAND DISPATCH ADDRESS 

IRESTORE TTY ODB ADDRESS 

IRESTORE JOB STATUS 



;DELAYS COMMAND TO BE EXECUTED WHEN JOB IN CORE MEMORY 

lANO CAUSES JOB TO BE SWAPPED iNtCOMMAND WAIT BIT IS SET IN JBTSTS) 

(AND HOPS LEVEL UP ONE, 

EXTERNAL TTYCM.LINSAV 



C01676 260140 00?!000 DLYCM: PUShJ PDP.OLYCOM 



ISET COMMAND WAIT BIT IN JOB STATUS AND PUT 

I JOB IN COMMAND WAIT QUEUE 

I SO JOB IS NOT RUNNABLE ANY MORE 

iROUTINE TO DELAY A COMMAND IF A SWAP OUT OR IN IS IM PROGRESS 

;DIFFERS from DLYCM IN THAT JOB IS NOT MADE TO BE SWAPPED IN 

;HEQUIRED FOR DELAYING CDMMA^'D IF SYSTEM 

iTAPf USER TYPES tC (HALT COMMAND) 



?01677 
001700 
f01701 
001702 
C01703 
001704 



262140 
262140 
262140 
261140 
200ir0 
?540!'0 



000001 

000002 

000002 

001675' 

000000 

000000 



DLYCMll POP 
POP 
POP 
PUSH 
MOVE 
JRST 



PDP.TAC 

PDP.TACl 

PDP.TACl 

PDP.CONTCl 

TACl.LINSAV 

TTYCM 
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1717 








1748 








1749 








1750 








1751 








1752 








1753 








1754 








1755 








1756 








1757 


0017H5 


201300 


000000 


175B 


001706 


205100 


000000 


1759 


001707 


135040 


001271' 


1760 


001710 


302201 


000000 


1761 


001711 


25400B 


001714' 


1762 


001712 


612106 


000002 


1763 


001713 


254000 


000757' 


1764 


001714 


554306 


000003 


1765 


001715 


205040 


446353 


1766 


001716 


316046 


000000 


1767 


001717 


254000 


001707' 


1768 


001720 


264000 


000000 


1769 









IFN FTDISK,< 
SEARCH DEVICE CHAIN FOR DSK WITH COUNTS ON 
CALL MOVE ITEM, JOB NO 
PUSHJ PDPfSTOPCK 
CAN'T STOP RETURN 
I OK TO STOP RETURN 

EXTERNAL DSKDDB , DSKFGS , CROP Jl 

STOPCK! MOVEI DEVDAT, DSKDDB 

MOVSI TACliDSKFGS 
STOPOi LOB TACPJOBN 

CAIE ITEM,(TAC) lASSIGNED TO THIS JOB? 

JRST STOPC )N0 

TONE TACl,OEVIOS(DEvnAT) )YES, FLAG ONJ 

JRST CPOPJ lYES, DELAY 

STOPC! HLRZ 0EVDAT,DEVSER(DEVOAT) 

MOVSI TAC. 446353 



CAMN TAC,OEVNAM(DEVDAT) 
JRST STQPD 
JRST CPOPJl : 



lOK TO STOP 
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1''70 SUBTTL COMCSS - COMMON COMMAND SUBROUTINES 
1771 

1772 (ROUTINE TO RETURN NEXT ALPHANUMERIC STRING 

1773 I IN COMMAND LINE (SIXBIT) 

1774 ICALLI MOVE TAC.BYTE POINTER TO PREVIOUS CHAR. 

1775 ; PUSHJ POP. CTEXT 

1776 i SIXBiT STRING RETURN LEFT JUSTIFIED IN AC TACl 
1777 

1778 INTERNAL CTEXT 

1779 INTERNAL CTEXTl 
1780 

1781 000012 T=BUFPNT ITEMPDRaRY AC'S 

1782 000013 T1=8UFWRD 
1763 000014 T2=UU0 
1784 

1785 0B1721 260140 001756' CTEXT! PUSHJ POP. SKIPS ICALL HERE IF AT START OF LINE 

17B6 001722 334000 000000 SKIPA 

1787 

1788 001723 26(1140 001757' CTEXTll PUSHJ PQP.SKIPSI ISKIP LEAD SPACES , TABS . NULLS AND CLEAR TACl 

1789 , DO NOT RETURN IF CR WAS PREVIOUS BREAK 

1790 001724 200500 003063' MOVE T.CPOINT 6, TACl] 

1791 IFE FTTTYSER,< 

1792 LOa TEM.TAC 

1793 JRST CTEXl 

1794 CTEX0: ILDB TEM.TAC 

1795 > 

1796 IFN FTTTYSER,< 

1797 EXTERN TAKR.GETCMR 

1798 001725 135405 000000 LD8 T£M . TAKR ( DAT ) IGET LAST CHAR. 

1799 001726 25''000 001730' JRST CTEXl 

1300 001727 260140 000227' CTEX0I PUSHJ PDP.GETCHR (ROUTINE IN SCNSER TO PICK UP CHAR, 

1801 > 

18P2 

1803 001730 260140 001735' CTEXl! PUSHJ POP. CTEX US IT ALPHANUMERIC 

1804 001731 640400 000040 TRC TEM,40 (CONVERT TO SIXSIT 

1805 001732 603500 770000 TLNE T, 770000 ISIX CHaRS YET7 

1806 001733 136400 000012 IDPB TEM.T INO. BUILD WORD 

1807 001734 254000 001727' JRST CTEX0 (LOOP FOR MORE 
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COMCSS - COMMON COMMAND SURROUTINES 

18(!6 ISCAN FOR ALPHANUMERIC CHAR IN TEM 

1809 001735 3034?0 000172 CTEXi CAILE TEM,"Z"+40 IGREATER THAN LC H? 

1810 001736 25t0[»0 001747' JRST CTEXA (YES. NOT SIXBIT, 

1811 001737 3014C0 000141 CAIL TEM,"A"+40 ILOWER CASE LETTER? 

1812 001740 620400 0001340 TRH TEM, 40 lYES. MAKE UPPER CASE. 

1813 001741 301400 000060 CAIL TEM, "0" 

1814 001742 303400 000132 CAIlE TEM, <<?." (LETTERS ARE LARGER THAN NOS. 
1B15 001743 254000 001747' JRST CTEXA (NEITHER 

1816 001744 303400 000071 CAILE TEM, "9" 

1817 001745 301400 000101 CAIL TEM, "A" 

1618 001746 263140 000000 PQPJ POP, (LETTER OR NUMBER RETURN 

1819 CTEXAl IFE FTTTYSER,< 

1820 POP PDP.Tl (REDUCE PQP BY 1 LEVEL 

1821 POPJ POP, (AND RETURN 

1822 > 

1823 IFIM FTTTYSER.< 

1824 001747 306400 000072 CAIN TEM,":" (DEVICE NAME? 

1825 001750 260140 001727' PUSHJ POP.GETCHR (YES. SKIP COLON 

1826 001751 302400 000003 CAIE TEM, 3 (CONTROL C? 

1827 001752 254000 001503' jRST TPOPJ (NO, RETURN ONE LEVEL UP 

1828 001753 205100 504154 CTXCNC! MOVSI T4C1, (SIXBIT /MaL/I (MAKE PHONY HALT COMMAND 

1829 001754 201400 000012 MOVE I TEM, 12 (WITH LF FOR TERMINATION 

1830 001755 254000 001752' JRST TPOPJ (AND RETURN UP A LEVEL 

1831 > 
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1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1812 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

187M 

1871 

1872 

1873 

1874 

1875 

1876 



C01756 
!'01757 
HK11760 
?i01761 
C01762 
1'01763 
C01764 
C01765 
001766 
^01767 
?01770 
701771 
<'01772 
t»01773 
!»01774 
('01775 
f01 776 



260140 
20 ll?? 
1354;^5 
306^/10 
760140 
3224^0 
260140 
?540r0 
■^03040 
?540''0 
3074^0 
2540,:^0 
263140 
.506470 
254300 
20] 4.''0 

254eL»0 



;RDUTINE TO IGNORE LEADING SPACES, TABS, AND NULLS 
fALSO CLEARS TACl 

(DOES NOT RETURN IF PREVIOUS CHAR, OR NEXT NON-SPACING 
(CHAR, IS CRIIE POPS SUBROUTINE LEVEL UP 1 ON RETURN) 
ICALL! MOVE TACSYTE POINTER TO PREVIOUS BREAK CHAR. 
I PUSHJ POP, SKIPSl 

INTERNAL SKIPSl, SKIPS 



IFE FTTTYSER,< 
SKIPSl! 



SKIPS! 



SKIPSA i 



MOVEI TAC1.0 
LOB TEM.TAC 
CAIN TEM,15 
JRST SKIPS2 



ICLEAR TACl 

IWAS PRECEDING BREAK A CR? 



(YES. POP SUB, LEVEL UP 1 
INULL? 



IL08 TEM.TAC 

JUMPE TEM, SKIPSA 

CAIE TEM, SPACE? 

CAIN TEM, 11 

JRST SKIPSA 

CAIN TEM, 15 icR? 
SKIPS2I POP PDP.T !YES, POP SUB, LEVEL UP ONE 

POPj PDP, 
> 
IFN FTTTYSFH,< EXTERNAL GETCHR , SPCHEK , BREAKB, TAKR 



001750' skips: 

f!000P'0 SKIPSl! 

001725' 

007015 

001756 ' 

001773' 

700223 ' 

001770' 

70.1225' 

001773' 

;5 4 

001762' 

700000 

000373 

001753' 

000012 

001755' 



SK IP=;ai 



SK IPS2! 



SKIPS3I 



PUSHJ POP, GETCHR IGET FIRST CHAR ON LINE 

»<DVEI TAC1,0 IFOR CTEXT. DECIN 

LDP TEM,TAKR(OAT) UN CASE TEM CLOBBERED 

CAR TEM, 15 ISKIP TO LF IF CR 

PUSnJ POP, GETCHR INEXT CHARACTER 

JUMPF TEM,SKIPS3 IPOP UP A LEVEL IF NO CMAR^ 

puShJ POP, SPCHEK JSPECUl? 

jRST SKIPS2 IND 

TL^'E TAC, BREAKS IB^EAKTCEND OF LINE) 

JRST SKIPS3 !YES. POP UP RETURN 

CAIG TEM, 40 iSPACE OR CONTROL CHAR? 

jRST SKIPSA iYES, 

poPj POP,0 ;no. return 

CAIN TEM, 3 ItC? 

JRST CTXCNC IHAN'LE IT 

"OVEI TEM, 12 ;FC^ BREAK CONSISTENCY 

JRST TPOPJ !RET'iR\i nNE LEVEL UP 
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1877 
1876 
1879 
1880 
1881 
1882 
1883 
1884 
1865 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 

1896 
1897 
1898 
1899 
19'/0 
195!1 
19i?2 
19(^3 
1904 
19(15 
19fl6 
19P7 
19?'8 
19?'9 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
191 9 
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!'020F!1 



e020Pii 

P!023e!2 

9<ii2WA 
("02005 
002^06 
!»020P'7 

('02010 
002011 
002012 
002013 



iROUTINE TO APPEND A "?" TO INPUT STRING AND SET AS OUTPUT 
iCALLED FROM OCTlNi RETURNS TO SECOND LEVEL ON PDL 
;CALLi MOVE TAC, BYTE POINTER TO LAST CHAR, IN INPUT STRING 
I PUSHJ POP, COMERA 



INTERNAL COMERA, COMERP 
001777 262140 000012 COMERP: POP PDP.T 



002000 

002000 260140 001762' 



COMERA! 



?005'?6 
260140 
260140 
3165?6 
254000 
260140 
3264?0 

260140 
3500^6 
2014i'0 
260110 



IFE FTTTYSER,< IBP 
IFIM FTTTYSER,< PUSHJ 



IREMOVE SUB, RETURN BEFORE CALLING COMERa 

TAO 

POP,GETcHR> iMOVE UP, A CH 



ROUTINE TO REPLACE LAST CHARACTER IN INPUT STRING BY "7" 
AND SET AS OUTPUT 

CALL! MOVE TAC, BYTE POINTER TO LAST CHAR, IN INPUT STRING 
PUSHJ POP:, COMERR 

INTERNAL COMFRR 



COMERH! 

ifn ftttyser,< 

extern outchs,trescn,titakr,setbfi,tisync 

000147' move t,tltakr(devpat) isave position in scan 

000000 pushj pdp,trescn )3ack up to start of command 

002000' comerl: pushj pdp,getchr iget a char from command 

002001' camn t.titakhfdevdat) ipass bad char yet? 

002010' JRST CDMERl lYES 

000000 PUSHJ PDP.OUTCHS INO. TYPE CHAR, 

002003' JUMPM TEM, COMERL !L00P if NOT OUT OF CHARACTERS 



002IJ14 6342' 



000000 COMERl! PUSHJ 
000151' AOS 

000077 "OVEI 

002006' PUShJ 

> 

IFF FTTTYSFR,< 
"OVE 
MOVEl 
npR 

> 

?:t7<l,7A TITA ITEM, ITEM 



PDP.SETBFI 

TISYNC(OFVDAT) 

TEM,"?" 

PDPiOUTCHS 



OAT, TAC 
T , " ? " 

T,DAT 



JCLEAR ANY MORE TYOei\ 
(THIS WILL BE SOS-ED AT CO"HET 
(APPEND ? TO ERRONEOUS i^nRn 



(STORE 7 ON TOP OF BREAK CHAR. 

(CLEAR JOB NO. AND SKIP I\TO C^LF ROl'T^ 
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1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 



;ROUTINE TO PRINT A COMMAND ERROR MESSAGE 
;SAME CALL AS CONMES 



f1020l5 6J4200 000004 



INTERNAL ERRMES 
ERRMESi TOHA ITEM, ITEM 



002017 
002020 
002021 
002022 
002023 
002023 



I COMERR SKIPS THIS ROUT. (SEE ABOVE) 
(CLEAR JOB NUMBER TO INDICATE ERROR 
I SKIP INTO CONMES ROUTINE 



;ROUTINE TO PRINT CARRIAGE RETURN-L I NE-FEEO 
(CALL! MOVE DAT, BYTE POINTER TO OUTPUT 
) PUSHJ PDPiCRLF 



002016 201040 



CRLF! 
003064' /: 



INTERNAL CRlE 

MOVE! TACCaSCII / 



I COMERR SKIPS TO HERE(SEE ABOVE) 



ROUTINE TO MOVE ASCII CHAR. STRING TO CONSOLE OUTPUT BUFFER 
CALL! MOVE OAT, BYTE POINTER TO LAST OUTPUT CHARACTER 
MOVEI TAC. ADDRESS OF ASCII MESSAGE 
PUSHJ POP, CONMES 
STRING TERMINATED BY NULL 
CONMES DOES MOT START TTY 
CONMSl - SAME CALLING SFGOUENCE AS CONMES . EXCEPT LH IS BYTE POINTER 

INTERNAL CONMES 
EXTERNAL TPOPJ 



525040 
261140 
1344<»3 
322400 



4407C0 CONMES! HRLI TAC, 44070(^1 
0000!)1 CONMSl! PUSH POP, TAC 

CON0! ILOB TEM,(POP) 
JUMPE TEM, TPOPJ 



000000 
001776' 



) ERRMES SKIPS TO HERE 

IFORM ASCI? BYTE POINTER 

ISAVE BYTE POINTER 

IGET NEXT CHAR. 

IIS IT NULL?(1F YES, DO POP TAC, 



POPJ) 



002023 260140 002013' 



002024 2540!10 0020?!' 



TYOINS! 
CONOUT : 

IFN FTTTYSER,< 
EXTERN OUTCriS 

PUSHJ 
> 
IFE FTTTYSER,< 

IDP8 
> 

JRST CON0 



!TAG FOR THE TYPE OUT INSTRUCTION 

(EXECUTED FROM REST OF COMCSS TO OUTPUT nHAR 



POP,OUTCHS 
TEM, OAT 



(NO, STORE TTY OUTPUT BUFFER 



(KEEP GOING 



COMCON - COMMAND DECODER AND SAVEGET ROUTINES - V433 MACRO, V36 19102 4-JUN-69 PAGE 75 
COMCSS - COMMON COMMAND SUBROUTINES 

1965 ;R0UTINE TO PRINT INLINE ASCIE MESSAGE 

1966 iCALL! PUSHJ PDP.INLMES 

1967 ) ASCIZ /THE MESSAGE/ 

1968 (RETURN TO NEXT UOC AFTER MESSAGE 
1969 

1970 INTERNAL INlMES 
1971 

1972 002025 262110 000001 INLMESi POP PDP-TAC ISETUP PRINT ADRESS FOR CONMES 

1973 002026 260140 002017' PUSHJ PDP.COnMES 

1974 002027 254001 000001 JRST KTaC) IRETURN TO NEXT LOC AFTER MESSAGE 
1975 

1976 iROUTlNE TO APPEND ? TO ERROR MESSAGE 

1977 JCALL PUSHJ POP, PROM 

1978 I RETURN 
1979 

19S0 INTERNAL PRQM 
1981 

1982 002030 201400 000077 PRQMI MOVEI TEM."?" 

1983 IFN FTTTYSER,< 

1984 EXTERN OUTCHS 

1985 002031 254000 002023' jRST OUTCHS 

1986 > 

1987 IFE FTTTYSER,< 

1988 IDPB TEM, DAT 

1989 POPJ POP, 

1990 > 

1991 002032 201040 003065' PRSPC! MOVEI TACCASCIB / /: 

1992 002033 254000 002017' JRST CONMES 
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1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 



2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
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IROUTINE TO PRINT "TOO FEW ARGUMENTS" 
;CALL! MOVE DAT, BYTE POINTER 
! PUSHJ PDP,NOTENF 

INTERNAL NOTENF 

002034 265040 002015' NOTENFi JSP TAC.ERRMES 

002035 522371 720214 ASCIH /TOO FEW ARGUMENTS 
002036 
002037 
002040 



002041 

002042 



426564 040644 
436531 543634 
522461 505000 



(ROUTINE TO PRINT A PERIOD 
iCALL! PUSHJ PDP.PRPER 

INTERNAL PRPFR 

265040 002017' PRPERl JSP TAC.CONMES 
270000 000000 ASCI? /./ 
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2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 

2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 



002043 
002044 
002045 
002046 
002047 
002050 



002052 
f"02053 



302055 
002056 
002057 



5S02060 
f'02060 
5102061 
002062 
^02063 
002064 
002065 
?02066 
002067 
002070 



135530 
312500 
263140 
261140 
205130 
413106 



002051 402006 000005 



6021;'!0 
350003 



400000 
777777 



002054 260140 000741' 



201100 
260140 
2540210 



400000 
000000 

000000 



261140 
554 J?0 
302323 
260140 
255BB0 
5543^6 
3263?'0 
2621415 
263140 



000006 
001645' 
003000 
002043 ' 

000000 
0000'^3 

002062' 
000006 

000000 



(ROUTINE TO DEASSIGN A DEVICE 
CALL! MOVE DEVDAT, DEVICE DATA BLOCK 

MOVE ITEM. JOB NUMBER 

PUSHJ POP, QEASG 
I ERROR NOT PREVIOUSLY ASSIGNED 
) OK RETURN WITH DEVICE OEASSIGNEO 

INTERNAL DEASG 

EXTERNAL P JOBN . CPOPjl , IPOP J 



001707' 

000004 

000000 

000004 

400000 

000034 



DEASG! LOB T, PjOBN 
CAME T. ITEM 
POPJ POP, 
PUSH PDP, ITEM 
MOVSI TACl.OVDIRI 



(WAS DEVICE ASSIGNED TO THIS JOB? 



(NO, RETURN 
ISAVE JOB NUMBER 
ICLEAR DIRECTORY IN CORE BIT 
ANDCAB TACI.DEVMOOIDEVDAT) (SET DEVICE CHARACTERISTICS FOR t£ST 

I AND ASGHGH 
ICLEAR LOGICAL NAME 



SETEM DEVLOG(DEVDAT) 

TRNE TACl.ASSCON 
AOS -KPDP) 
IFN FT2REL.< 

EXTERN ASGHGH 
PUSHJ PDP, ASGHGH 



MOVEI TACljASSCON 
PUSHJ PQP,RELEA6 
JRST IPOPJ 



IIS DEVICE ASSIGNED BY CONSOLE? 
lYES, 00 OK RETURN 



HE DTA OR MTA, CLEAR ANY HIGH SEGMENT Ni^^ES 
I FROM THIS DEVICE SO NO NEW SHARING 
I OEVMOD SETUP IN TACl ON CALL 

ISETUP ASSIGNED BE CONSOLE BIT FOR RELEA6 ; 
ICLEAR JOB NO, IN DD8 IF ODB NOT NEEDED 
IRESTORE JOB NUMBER AND RETURN 



ROUTINE TO DEASSIGN ALL DEVICES EXCEPT LOGICAL TTY 
CALL! MOVE ITEM, JOB NUMBER 

MOVE DEVDAT, AOR, OF DEVICE NOT TO BE DEASSIGNED 

PUShJ PDP, DEASTY 



INTERNAL DEASAL,0EASTY 
EXTERNAL DEVLST 



DEASTY! 
DEASAL! 



DEAl! 



PUSH PDP, DEVDAT 
HLRE DFVDAT, DEVLST 
CAIE DFVDAT,'Ji(PaP) 
PUShJ POP, DEASG 
JFCL 



ISAVE TTY DOB ADDRESS 

ISEARCH ALL DOB'S 

IIS THIS DEVICE NOT TO BE DEASSIGNED? 

INO, TRY TO DEASSIGN IT 

I IGNORE IF CAN'T 



WLRE DEVDAT, DFVSER ( DEVDAT ) 

JUMPN OEVOAT, DEAl 

"OP POP, DEVDAT [RESTORE TTY DOB ADDRESS 

POPj PDP, 
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?S63 

2064 

2265 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 

2081 

20S2 

2083 

2084 

2085 

20S6 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

21^7 

2106 



002071 
002071 
002072 

002073 

002073 
002074 



002075 
002076 

002077 
002100 
^02101 
002102 
002103 
002104 
002105 
002106 
002107 
002110 
002111 
002112 
002113 

002114 
002115 



201540 
254000 



201540 
260140 



305400 
306400 

254000 
302400 
307400 

254000 
302400 

3a44(>0 

2540C.0 
2754510 
321400 
311400 
2540E!0 
220100 
270100 

260140 
25465^0 



ROUTINE TO READ CONSOLE AND CONVERT ANY RADIX NUMBER 
CALL! MOVE TACl, DESIRED RADIX 

MOVE TAG, BYTE POINTER TO FIRST CHRACTER 
PUSHJ POP, ANYRIN 
NO ARC, TYPED RETURN. TAC1=0 
ILLEGAL CHARACTER RETURN 
I NORMAL EXIT lAC TACl CONTAINS NUMBER 
ISCAN STOPS ON FIRST CR, DASH , SPACE . OR TAB OR ILLEGAL CHAR, 
(SKIPS LEADING SPACES AND TABS 

INTERNAL OCTIN.OCTINl.DECIN.OECINl 
EXTERNAL CP0PJ1.CP0PJ2 



000012 
000013 



C=BUFPNT 
R=BUFWRD 



OEClNl! 
000012 DECIn: mOVEI R.12 
002074' JRST ANYRIN 



000010 
001757' 



000175 
000133 

000000 

000055 

000040 

002077' 

000054 

000135 

002102' 

000060 

001720' 

000013 

002107' 

000013 

000010 

002003' 
002075' 



OCTINl; 

OCTINI MOVEI R,10 

ANYRIN! puShJ PDP.SkIPSI 



nz FTTTYSER,< LDB 



aCT0i 



CAIGE TEm.175 
CAIN TEM,"C" 



JRST CP0PJ2 
CAIE TEM,"-" 
CAIG TEM,40 
jRST CP0PJ2 
CAIE TEM,"," 
CAIN TEM, "3" 
JRST CP0PJ2 
SUBI TEM, 60 
JUMPL T£M,CPOPjl 
CAML TEM, R 
JRST CPOPJl 
IMUL TACl, fi 
ADD TACl, TEM 
IFE FTTTYSER,< ILDE 
IFN FTTTYSER,< PUSHJ 
JRST OCTS' 



(CHARACTER AC 
(RADIX AC 



(DECIMAL INPUT 



(OCTAL INPUT 

(SKIP LEADING SPACES, TARS, NULLS 

( 00 NOT RETURN IF CR WAS PRI'VIOUS BREAK 

( OR THIS BREAK 
TEM.TAO 

IALTM0DES(175 OR 176)7 

INO, LEFT BRACKET(SO SPACE NOT REQ 

( BEFORE [P,P] [N ATT «ND GET COMMANDS. 
(YES. SKIP RETURN 
(DASH? 
(SPACE OR CONTROL CHAR? 

(YES, ONLV LEGAL TERMINATORS 

(COMMA? 

(RIGHT BRACKET? 

(YES, 

(ERROR IF NEG,,RFM0VE: SUB, RETURm AND PRINT 
(OR .GE. RADIX 
(ERROR, GREATER OR EQUAL TO RAOIX 



TEM.TAC (NEXT CHAR> 
PaP,GETCHR> (NEXT CHAR 
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2109 INTERNAL FTtOGIN 

211B IFN rTLOOIN,< 

2111 IGET PROJECT-PROGRAMMER NUMBERS 

2112 (CAUL! MOVE TAC, INPUT BYTE POINTER 

2113 ) PUSHJ PDPiPjPGNO 

2114 ( 

2115 ((AC2)LH * PROJECT NUMBER 

2116 )(AC2)RH •■ PROGRAMMER NUMBER 

2117 l(AC2) = IF NO C 3'S TYPED 

2118 (THE TERMINAL 3 IS OPTIONAL 
2119 

2120 

2121 IFE FTTTYSER,< 

2122 PJPGNO! SKIPA TACl.TAC (SAVE INPUT BYTE POINTER IN CASE NO 

2123 , c 3IS WERE TYPED IN, 

2124 PP0I IBP TAC ,GET NEXT CHARACTER (2ND TIME THRU LOOP) 

2125 LDB TEM.TAO IGET CHAR WHICH STOPPED PREVIOUS FIELD ScAN 

2126 I (OR UZ*^ CHAR ON 2ND TIME THRU LOOP) 

2128 IFN FTTTYSER,< 

2129 002115 260140 001757' PP0 : PUSHJ PDP.SKIPSl 

2130 002117 PJPGNOl 

2131 > 

2132 002117 306400 000133 CAIN TEM,"C" IIS IT A "C" ? 

2133 002120 254000 002126- JRST PPl lYES, GET PROJECT-PROGRAMMER NUMBERS FROM INSIDE, 

2134 002121 302400 000040 CAIE TEM," " (NO, IS IT A SPACE 7 

2135 002122 306400 000011 CAIN TEM, 11 | OR A TAB 7 

2136 002123 254000 002116' jRST PP0 lYES, KEEP LOOKING FOR "C", 

2137 002124 201700 000000 MOVE! AC2,0 INEITHER SPACE NOR TAB, THUS RETURN A MEANING 

2138 I NO PROJECT-PROGRAMMER NUMBER ENCOUNTERfD, 

2139 IFE FTTTYSER,< MOVEM TAC1,TAC (RESTORE ORIGINAL BYTE POINTER, > 

2140 002125 263140 000000 POPJ POP, (EXIT,, 

2141 

2142 002126 PPII 

2143 002126 260140 001756' IFN FTTTYSER,< PUSHJ PDP,SKIPS> 

2144 002127 260140 002073' PUSHJ PDP.OCTIN IGET FIRST ARG,-PROJ. NO. 

2145 002130 254000 001777' JRST COMERP INO ARG, GIVEN 

2146 002131 254000 001777' JRST COMERP (ILLEGAL DECIMAL CHARACTER GIVEN 

2147 002132 5047PI0 000002 HRL *C2,TAC1 (ENTER 

2148 002133 302400 000054 IFN FTTTYSER,< CAIE TEM,"," 

2149 002134 254000 001777' JRST COMERP 

2150 002135 260140 001756' PUSHJ PDP,SKIPS> 

2151 002136 260140 002073' PUSHJ PDP.OCTIN IGET SECOND ARG. -PROG, NO, 

2152 002137 254000 001777' JRST COMERP I 

2153 002140 254000 001777' JRST COMERP I 

2154 002141 540700 000002 HRR 4C2,TAC1 lENTER 

2155 002142 260140 001757' PUSHJ PDP.SKIPSl (SKIP BLANKS 

2156 002143 305400 000135 CAIN TEM,"]" US USUAL EigDlNG A "]"? 

2157 IFE FTTTYSER,<1BP TAO (YES, SKIP IT 

2158 002144 260140 002114' IFN FTTTYSER , <PUSH J PDP,GETCHR> (YES, SKIP IT SO FINAL 1 IS OPTIONAL 

2159 002145 263140 SBHIIStlll POPj PDP , (RETURN TO CALL 

2160 > 
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2161 
2162 
2163 
2164 

2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
21S4 
2185 
2186 
2187 
2188 
2199 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2107 
2198 
2199 
22PI0 



("02146 
17102147 
?02l50 
("02151 
?02l52 
^02153 
002154 
PI02155 
002156 
002157 
002160 
?,l62lbl 
R02162 
002163 
002164 
002165 
002166 
002167 
002170 
002171 
002172 
002173 



231040 
261140 
322040 
231040 
322040 
260140 
260140 
350000 
200040 
260140 
260140 
350000 
262140 
231040 
260140 
260140 
200040 
221040 
231040 
301100 
350000 
254000 



;ROUTINE TO PRINT T[ME AS HOURS , M I NUTES , SECOMOS , AND HUNDRETHS 

;FORMAT IS hhmm:sS.HH 

(CALL! MOVE TAC.TIME IN J I FF I ES ( 60THS , 50THS OR MILLISECONDS) 

) MOVE DAT, OUTPUT TEXT BYTE POINTER 

! PUSHJ PDP.PRTIME 

ISCALEING IS DONE USING THE FOLLOWING GLOBAL SYMBOLS DEFINED 

ION THE CONFIGURATION TAPE (lOINU) 

iTHUS ANY INSTALLATION MAY HAVE ANY RATE CLOCK 

EXTERNAL J I FM I N , J I FSEC , J I FSC2 

)JIFMIN=NO. OF J1FFIES(CL0CK TICKS) PER MINUTE 

IJIFSEC=MO. OF JIFFIFS PER SECONO 

I JIFSC2=l/2»JirSEC(USE0 FOR ROUNDING) 



INTERNAL PRTIME 



001325' 

000002 

002162' 

000074 

002156' 

001637' 

002025' 

0000Hia 

000002 

002204' 

002025' 

000000 

000001 

001427' 

002153' 

002041 1 

000002 

000144 

002163' 

000000 

008001 
002202' 



PRTIMEl 



PR0! 



PRi: 



IDIVI 

PUSH 

JUMPE 

IDIVI 

JUMPE 

PUSHJ 

PUShJ 

ASCI? 

MOVE 

pushj 

puShj 

ASCIH 

POP P 

IDIVI 

PUSHJ 

PUShJ 

MOVE 

IMULI 

IDIVI 

CAIL 

AOS T 

JRST 



TAC, 
PDP.T 

TAC. 

TAC. 

TAC. 

PDP. 

POP, 

/:/ 
TACT 

PDP. 

PDP. 

/!/ 
DP.TA 

TAC. 

PDP, 

POP. 
TACT 

TAC. 

TAC. 
TAC] 
AC 
PRT2L 



JIFMIN 
ACl 
PRl 
»D60 

PR0 

RADX10 

INLMES 

ACl 

PRT2 

INLMES 

C 

JIFSEC 

RADX10 

PRPER 

ACl 

rO100 

JIFSEC 

JIFSC2 



IFORM MINUTES 

ISAVE REMAINDER IN JIFFIES 
ISUPRESS HOURS IN MINUTES 
IHOURS. MINUTES IN TAC.T4C1 
ISUPPRESS HOURS 

I PR I NT I'HHI'' OR "HI" 

IGET MINUTES 
IPRINT "MMI" 



IRESTORE SECONDSdN JIFFIES) 

(JIFFIES PER SECONO 

IPRINT SECONDS 

(PRINT PERIOD 

INO OF JIFFIESfHUNORETHS) 

ICONVERT TO HUNDRETHS 

IROUNO IF GREATER THAN HALF 

IPRINT 
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- COMMAND DECODER AND SAVEGET ROUTINES - V433 
COMCSS - COMMON COMMAND SUBROUTINES 



2201 


002174 


231040 


002146' 


PRTIMlt 


IDIVI TAC.JIFMIN 


2202 


002175 


231040 


000074 




IDIVI TAC,»O60 


2203 


002176 


260140 


002204' 




PUSHJ PDPiPRT2 


2204 


002177 


260140 


002025' 




PUSHJ PDP.INLMES 


2205 


002200 


350000 


000000 




ASCIZ /!/ 


2206 


002201 


200040 


000002 




MOVE TAC.TACl 


2207 


002202 


260140 


002204' 


PRTZLFt 


PUSHJ PDP,PRT2 


2208 


002203 


254000 


002016' 




JRST CRUF 


2209 












2210 


002204 


201400 


000060 


PRT2; 


MOVeI TEMi"0" 


2211 


002205 


305040 


000012 




CAIGE TAC.»D10 


2212 


002206 


256000 


002023' 




XCT CONOUT 


2213 


002207 


254000 


002164' 




JRST RADX10 
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I 

IHOURSiMINUTES IN TACiTACl 

IPRINT "MHI" 
IPRINT MM 



(PUT LEADING IF LESS THAN 10 
(PRINT REST OF NUMBER 
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;ROUTINE TO PRINT SIZE OF LOGICAL SEGMENT (LOW OR HIGH) 

ICALL! MOVE ITEM, HIGH QR LOW SEG NUMBER 

) PUSHJ PDP.PRT SEG, 

I RETURN 

ICALLED at CLOCK LEVEL FROM CORE (UUO ARG) COMMAND AND SEGCON 

INTERN PRTSEG 
EXTERN PCORSZ 

PRTSEGl PUSHJ PDP.SEGSIE |TAC1=SIZE OF HIGH OR LOW SEG 
MOVE TAC.TACl IRADX10 WANT DEC. NO, INTAC 

JRST RADX10 (PRINT DECIMAL 

(ROUTINE TO RETURN SI2E OF HIGH OR LOW SEG 
ICALLI MOVE ITEM, LOW OR HIGH SEG NUMBER 

; PUSHJ PDP.SEGSia 

I RETURN WITH SIHE IN K IN TACl 

INTERN SEGSI? 
EXTERN CPOPJ 

SEGSUl 

IFN FTSWAP,< 

EXTERN IMGIN 

LDB TACl.IMGIN tSliZ WHEN NEXT SWAPPED INIIN K) 

JUMPN TACliCPOPJ 10 MEANS NOT SWAPPED OUT 
> 

HLRZ TACl.JBTAOR(ITEH) jSIZE-1 LOW LOW OR HIGH SEG IN WORDS IN CORE 

JUMPE TACliCPOPJ lis IT IN CORE? 

LSH TACl, -12 lYES, CONVERT TO #K-1 

AOJA TACI.CPOPJ (ADD 1 AND RETURN NUMBER OF K 



2214 








2215 








2216 








2217 








2218 








2219 








2220 








2221 








2222 








2223 


002210 


260140 


002213' 


2224 


002211 


200040 


000002 


2225 


002212 


254000 


002207' 


2226 








2227 








2228 








2229 








2230 








2231 








2232 








2233 








2234 








2235 


002213 






2236 








2237 








2238 


002213 


1351PI0 


000000 


2239 


002214 


326100 


001713' 


2240 








2241 


002215 


554104 


000101' 


2242 


002216 


322100 


002214' 


2243 


002217 


242l?!0 


777766 


2244 


002220 


344100 


002216' 
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ll^.l (routine to assign a minimal core area(140 words) 

;;]; icalled from core.kjob, and run commands 

iizl '^H'S ROUTINE preserves INPUT BYTE POINTER IN TAC 

!|J° ICALL" PUSrtJ POP.GETMIN 

nil ' RETURN PRCGsK IF UNSUCCESSFUL OR CORE ASSIGNED ON DISK 

m^ EXTERN JOBDA.TPOPJ 

2253 002221 GETMINl 

lilt. IFt FTTTYSER,< 

2254 ^ f'USH PDP.TAC JSAVE INPUT BYTE POINTER TO COMMAND 

2257 IFN FTTTYSER,< 

2258 002221 261140 000006 PUSH PDP.DEVDAT ISAVE TTY DD8 ADR 

226? mill Imi4^ IZZl ' '^'" PDP.TACI .SAVE DEVICE NAME(GET) 

22*1 002223 261140 000000 j^^ ^^^^PUSH POP , I OS (SAVE DISPATCH ADDRESS(AnYACT USES lOS) 

22*'' EXTERN KILHGH 

2264 002224 260140 000401- PUShJ PDP, KILHGH IKILL HIGH SEG 

226? Itllll 260?40 tZm o?X^^ TACJOBOA (LENGTH OF JOBDATA AREA 

ddoy 002230 262140 000000 pgp PQP.ioS 

2270 002231 262140 000002 pQP PDP.TACI .RESTORE PUSHED ACS 

2271 IFN FTTTYSER,< 

2272 002232 262140 000006 POP PDP.DEVDAT IRESTDRF TTY nPR in» 

2273 002233 263140 000000 ^ poP, pnp? ',",IVZ UlTy fTl DUPLEX SCNSER 

2275 IFE FTTTYSER,< 

Illy ^ JRST TPOPJ .RESTORE TAC AND RETURN 
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2276 
2279 

2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2295 
2297 
2298 
2299 
23(50 
23PI1 
2302 
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002234 
B02235 



554040 0000137 
305054 000000 



002236 254000 000000 



002237 
002240 



200060 000014 
254000 002111' 



ROUTINE TO GET 1 WORD FROM USER ARE WHICH CAN BE IN LOW OR HIGH SEE 
CALL! MOVE PROG.CXWD PROT.RELOC FOR LOW SEG3 

MOVE ITEM, JOB NUMBER 

HRLI UUO.PROG IFOR RELOCATION 

HRR UUO.USER ADDRESSdE BEFORE RELOCATION) 

PUSHJ PDP,GETWRD 

ERROR RETURN ADDRESS OUT OF ROUNDS 

OK RETURN, CONTENTS IN AC TAC 
CAN BE CALLED AT CLOCK OR UUO LEVEL 
CALLED FROM E COMMAND , IN I T , OPEN AND CALL UUOS 



INTERN GETWRD 
EXTERN CPOPJI 

GETWRDi HLRZ TAC, PROG 

CAIGE TAC, (UUOl 

IFN FT2REL,< 

EXTERN HGHWRD 
JRST HGHWRD 

> 

IFE FT2REL,< 

POPJ POP, 

> 

MOVE TAC,li>UUO 
JRST CPOPJI 



(LARGEST REL LOC IN LOW SEG 
IIS ADR, IN LOW SEG? 



INO, CHECK IF IN HIGH SEG(ERROR RET IF NO) 



INO, ERROR RETURN 

lYES, GET IT FROM LOW SEG 
lAND SKIP RETURN 
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23I?I3 
2304 
23P15 
23CJ6 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 

2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
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SUBTTL SAVGET - SAVE» GET , R , RUN COMMANDS AND RUN.GF.TSEG UUOS 

ISAVGET LOWER CORE LOCATIONS USED FOR UUOS TO MONITOR 

lUSED IN SAVGET IN APRSER AND SAVGET IN SEGCON 

(THESE LOCATIONS ARE DEFINED TO BE IN THE USERS UUO ACS 

(FOR LOOKUP, ENTER UUOSi 
XP SGANAM.at 

(FILE NAME 
XP SGAEXT.SGANAM*lt 

(FILE EXTENSION 
XP SGADAT.SGANAM*2t 

(FILE CREATION DATE*TIME 
XP SGALEN.SGANAM*3t 

(LH»-LENGTH,RH=FIRST LOC-1 DUMPED 

) OR PROJECT-PROGRAMMER NUMBER(DISK) 
XP SGAENO.SGALEN+lt 

(LAST WORD OF DUMP COMMAND LISTi0(SAVE AND GET) 

XP SGARENjSGAEND' 

( ALSO FIRST WORD FOR RENAME USED AS DELETE 

XP sgappn,:sgaren+3» 

(FOURTH WORD-PLACE TO SAVE PROJECT-PROGRAMMER 
( NUMBER USER TYPED 

(FOR OPEN UUOSi 

XP SGAMOD.l0t 

(lOS MODE WORD FOR OPEN UUO 
XP SGADEV,SGAM0D*1» 

(DEVICE NAME 
XP SGAHED»SGAM0D*2« 

(INPUT-OUTPUT BUFFER HEADER ADDRFSSES=0 

(MISC. DATA LOCATIONS! 
XP SGADMP,13t 
XP SGAC0R,14t 
XP SGANEW.lSt 
XP Sr,AHGMii6t 



XP SGAL0W,17f 



(DUMP COMMAND lOWD 

(AC FOR CORE UUO'S(HIGHEST USER LOC DESIRED) 

(NEW CORE ASSIGNMENT AS SPECIFIED BY THIRD ARG I 

(LH=EXT TO USE FOR SAVING HIGH SEG 

( RH = EXT to OELETEdE SHRHGri OR HGHSHR) 

(LH=EXT WHICH USER TYPED FOR SAVE OR GET COMMAND' 

( OR .SAV IF HE DIDN'T TYPE AN ARG WITH LEADING PERIOD 

( RH = 
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(ROUTINE TO SCAN COMMAND STRING ARGUMENTS FOR SAVE, GET, RUN AND R 

;COMMANDS AND STORE THEM IN JOB DATA AREA WHICH MUST BE IN CORE 

(WHEN SGSET IS CALLED FROM COMMAND DECODER 

(CALL! MOVE TAC, INPUT BYTE POINTER 

i MOVE TAC1,SIXBIT DEVICE NAME 

i MOVE DAT, OUTPUT BTTE POINTER 

I MOVE IDS, ADR, OF MONITOR JOB ( SAV JOB , GET JOB , RUNJOB ) 

I MOVE PROG, ADR, Of JOB AREA 

I PUShJ pop, SGSET 

C=BUFPNT 

INTERNAL FTLOG I N , FT2REL . FTD ISK 
EXTERNAL JOBCOR » JBTPRG 

SGSET: JUMPE TACl.NOTENF INOT ENOUGH ARG IF NO DEVICE NAME 

MOVEM TACliSGADEV(PROG) ISTORE DEVICE NAME 

SKIPN TACl, JBTPRG(ITEM) IGET AUTOMATIC FILENAME, OR 

PUSHJ PDP, CTEXTl IGET FILE NAME FROM COMMAND STRING 

JUMPE TACliNOTENF ITHERE MUST BE A FILE NAME 

MOVEM TAC1»SGANAM(PR0G) iSTORE FILE NAME 

MOVEM TACli JBTPRG(ITEM) ISAVE FILE NAME FOR SYSTAT COMMAND 

MOVEI TAC1I0 lASSUME USER DID NOT SPECIFY AN EXTENSION 

) WILL BE TURNED INTO SAV OR DMP 
IFE FTTTYSER,< LDB TEM,TAC> 

CAIN TEM,"," MS kH EXTENSION SPECIFIED? 

PUSHJ PDP.CTEXT lYES, GET EXTENSION 

HLL2M TACl.SGAEXTIPROG) ISTORE IT FOR LOOKUP 
IFN FT2REL.< 

EXTERN SETEXT lALSO SAVE IT AGAIN IN SGALOW FOR LOW SEG 

I LOOKUP OR ENTER 

PUSHJ PDP, SETEXT ISET HIGH EXTENS I ON < SGAHGH ) TO , SHR IF SpAVE OR GET 

I ,HGH IF SAVE(LH I OS = NSRBI T ) ,, 
> 

SET?M SGADAT(PROG) JSET DATE(E+2) TO 0, SO MONITOR WILL USE TODAYS 
IFN FTLOr,IN,< 

PUShJ PDP,PJPGN0 (GET PROJ, PRDG. NO. 

MOVEM AC2,SGAPPN(PR0G) ISTORE IF NO C]'S TYPED RY USER 
> 

PUSHJ PDP,0ECIN1 lAMOUNT OF CORE (OPTIONAL THIRD ARG.) 

JRST SGSFTl lOOES NOT RETURN IF ERROR, RETURN HERE IF NO ARG. 

JRST COMERA ; ILLEGAL CHARACTER 

LSN TACl, 12 (CONVERT TO HIGHEST REL , LOC. 

SUBI TAC1,1 
SGSETl; MOVEM TACliSGAMEW(PRiG) ISTORE FOR HUN AND SAVE 

HRR^ TACl.lOS ISCHEOULE MONITOR JOB 

I GUARRANTEE LH OF PC WORD IS 0, SINCE IT WILL 
I BE ADDED TO STARTING AHDRESSdF RUN C0«) 

JRST MSTART ISTART JOB WITH PC IN MONITOR MODE 



2355 
2356 








2357 








2356 








2359 








2360 








2361 








2362 








2363 








2364 








2365 






000012 


2366 








2367 








2368 








2369 








2370 


002241 


322100 


002034' 


2371 


002242 


202107 


000011 


2372 


002243 


336104 


000626' 


2373 


002244 


260140 


001723' 


2374 


002245 


322100 


002034' 


2375 


002246 


202107 


000000 


2376 


002247 


202104 


002243' 


2377 


002250 


201100 


000000 


2378 








2379 








2360 


002251 


306400 


000056 


2381 


002252 


260140 


001721' 


2382 


002253 


512l(?l7 


000001 


2383 








2384 








2385 








2386 


002254 


260140 


000000 


2387 








2388 








2389 


002255 


4020C7 


000002 


2390 








2391 


002256 


260140 


002117' 


2392 


002257 


202707 


0000P17 


2393 








2394 


002260 


260140 


002071' 


2395 


002261 


254000 


002265' 


2396 


002262 


254030 


002000' 


2397 


002263 


2421«"0 


000012 


2398 


002264 


275100 


000001 


2399 


P102265 


2021!'7 


000015 


2400 


002266 


550100 


0000H0 


24[»1 








2402 








2403 


002267 


254000 


001604' 
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2404 








2405 








2406 








2407 








2408 








2409 








2410 








2411 








2412 








2413 








2414 








2415 








2416 








2417 








2416 








2419 


002270 


540600 


000001 


2420 


002271 


250043 


000000 


2421 


002272 


261140 


000001 


2422 


002273 


135040 


001611' 


2423 


002274 


542043 


777777 


2424 


002275 


260140 


000000 


2425 


002276 


202047 


000011 


2426 


002277 


250140 


000000 


2427 


002300 


202047 


000000 


2428 


002301 


260140 


002277' 


2429 


002302 


200100 


000001 


2430 


002303 


202107 


000001 


2431 








2432 








2433 


002304 


260140 


000000 


2434 








2435 








2436 








2437 


002305 


260140 


002301' 


2438 


002306 


202047 


000002 


2439 


002307 


260140 


002305' 


2440 


002310 


202047 


000007 


2441 


002311 


260140 


002307' 


2442 


002312 


552047 


000015 


2443 








2444 


002313 


254000 


002440' 


2445 









(ROUTINE TO PICKUP ARGUMENTS FOR RUN AND CETSEG UUOS 

(THIS ROUTINE DOES SAME THING AS SGSET. EXCEPT THAT ARGUMENTS ARE 

lOBTAlNEO FROM USER UUO ARGUMENTS INSTEAD OF FROM CONSOLE COMMAND 

ITHE USERS ARG ARE MOVED TO USER ACSCSGA.,.). THEREBY CLOBBERING HIS ACJS 

(USER AC FIELD AND START PC OFFSET{RUN UUO) ARE SAVED ON PD LIST AT J0BI»d3 

;THEN LOWER CORE IS SET UP(SG2 CALLED) RESET IS NOT DONE (FOR GETSEGUUOI 

IJBTPRG NOT SET FOR LOW SEG, SINCE GETSEGUUO SHOULD NOT 

(CALL' MOVE TAC, CONTENTS OF USER AC(ADR. OF 3 WORD ARG LIST) 

( MOVE PROGiJOB RELOCATION 

( PUSHJ PDP.GETARG 

( RETURN 

INTERN GETARG 

EXTERN JBTPRG.JOBCOR.PUUOAC 



GETARGi HRR UUO, TAC 

EXCH TACtPDP) 
PUSH POP, TAC 
LDB TAC.PUUOAC 

HRRM TAC.-KPOP) 
PUShJ PDP.GETWOU 
MOVEM TAC.SGADEV(PROR) 
PUSHJ PDP.GETWDl 
MOVEM TACiSGANAM(PROG) 
PUShJ PDP.GETWDl 
MOVE TACl.TAC 
MOVEM TAClrSGAEXTtPRHG) 
IFN FT2REL.< 

EXTERN SETEXl 
PUSHJ PDP, SETEXl 



(MOVE ADR. OF ARG LIST TO UUO 
(AND PUT ON PO LIST 
(MOVE RETURN PC UP ONE IN PD LIST 
(USER AC FIELD IN RUN OR GETSEG UUO 

(SAVE IN CASE OF ERROR RETURN 

(GET FIRST ARC FROM USER AREA 

(STORE DEVICE NAME 

(GET NEXT ARG FROM USER AREA 

(STORE FILE NAME FOR LOOKUP (DO NOT STOrtf FOR LOWSEGl 

(GET THIRD ARG(EXTENSION WORD E*l) 

(PUT ARG IN TACl, SO SAME AS SGSET RETURm FROM CTEXT 

(STORE EXTENSION AND RH FROM USER 



PUSHJ PDP.GETWDl 
MOVEM TAC.SG40AT(PR0G) 
PUSHJ PDP.GETWDl 
MOVEM TAC.SGAPPNtPROG) 
PUSHJ PDP.GETWDl 
HRR2M TAC.SGANEW(PROG) 

JRST SG2A 



(SAVE EXT AGAIN IN SGALOW ' 

( SETUP EXT FOR HIGH SEG ( SGAHGH»"SHR" ) l 
t SETUP EXTENSION FOR LOW SEG ( SGAL0W="S4v" ) 

(GET FOURTH ARG(OATE WORD) 

(GET FIFTH USER ARG FROM USER AREA 

(STORE PROJECT, PROGRAMMER NO. OR 

(SIXTH ARG FROM USER 

(STORE CORE ARG OR ^(HIGHEST LOC DESIRED) 

( IGNORE LH 

(GO SET UP LOWER CORE AND RETURN 

( DO NOT 00 A RESET 
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2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
245S 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2430 
2401 
2402 



[^02323 
C02324 



^02325 
K02326 
^02327 
f»02330 



;TH1S JOB SAVES A JOB AREA ON RETRIEVABLE STORAGE 

;THIS JOR RUNS IN EXEC MODE AND CALLS 10 ROUTINES USING REGULAR UUOS 

iND ATTEMPT IS MADE TO SAVE STATUS Of lO DEVICES, J08P0P, OR AC'S 

;IN FACT THE ONLY USEFUL THING WHICH MAY BE DONE WITH A JOB AREA 

JAFTFR IT HAS REEN SAVED IS TO START EXECUTION OVER AT THE STARTING 

;ADDRESS 

INTERNAL SAVJOB.SAVERR 

EXTERNAL J0B41,J0i3S41,J0R00T,J0SSDD,J0BSV 



P02314 2651510 002436' SAVJOB! JSP TACl.SGl 



("02317 542047 000000 



002315 574107 000013 HLRE TACl , SGADMP ( PROG ) 

002316 260140 002753' "USHJ PDP,CKIOWD 

HRRM TAC, JOBCOR(PROG) 

IFN FT2REL,< 

EXTERN SaVHGH 

002320 260140 000000 PUSHJ POP, SAVHGH 

002321 254(51710 002374' JRST SAVFIN 



002322 050000 000010 SAVJBl! OPEN 0iSGAMOD 



2540110 
?730e0 



0770i»0 
254000 
200047 
202047 



002473' 
000012 



000000 

002400' 

000000 

000000 



JRST SGERRA 
UGETF ITi.SGAHED 



ENTER 0.SGANAM 

JRST SAVFRR 

MOVE TAC, J0B41( JDAT) 

MOVEM TAC, J0BS41( JOAT) 



ISET UP ACS PROG, PDF, JOAT, ITEM, 

I RESET DEVICES 

l-NO. OF WORDS TO WRITE 

(CHECK USER'S CORE ARGdF ANY) WITH AMOUVT TO WRITE 

I RETURN ONLY IF OR NOT SMALLER 

ISTORE MAX OF SIZE OF FILE OR CORE ARG 

I FOR ASSIGNING INITIAL CORE WHEN FILE GOTTEN 



UNIT DEV,SAVE HIGH SEG, IF ANY, RETURN IF OK 

IHIGH SAVED, BUT NO DATA IN LOW SEG, SO nO 
I NOT WRITE LOW FILE 

I SKIP RETURN IF LOW SEG TO BE WRITTEN 

I SGALEN, AND SGAEXT RESTORED 

IRE INIT DEVICE, SO UGETF WILL SET FIRST FREE 

I BLOCK BECAUSE NO LOOKUP OR ENTER DONE 

lOEVICE NOT AVAILABLE 

IGET FIRST FREE BLOCK ( ME AN I NGFUL ONLY IF DTA) 

I CAUSE ENTER TO ASSIGN FIRST LOSCK OF FILE 

I AS LOWEST FREE BLOCK SO TE'^DMP CAN REAn 

) SAVED FILES, SGAHEO IS NO LO^'GER NEEOE^COPFM UUO) 

lENTER FILE NAME IN DIRECTCfiv 

IDIRECTORY FULL OK PROTECTIOV FAIL^SE 

ISAVE USER UUO HANDLING JSR 

I IN UPPER PART OF JOB OATA ARE« 
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24B3 


002331 


200047 


000446' 


MOVE ■ 


rAC,jOBDDT(JDAT) 


2484 


002332 


202047 


000000 


MOVEM 


TACiJOBSDD(jOAT) 


2485 


002333 


563000 


001606' 


HRROS 


USRHCU 


2486 












2487 












2466 












2489 












2490 












2491 


002334 


550407 


000443' 


HRRi 


TEM,JOBSA(JDAT) 


2492 


002335 


201047 


000000 


MOVEI 


TACJOBSVIPROG) 


2493 


002336 


200100 


003066' 


MOVE 


TACl.CXMD PROG. 


2494 


002337 


574207 


000013 


HLRE 


ITEM.SGAOMPfPROe) 


2495 


002340 


213000 


000004 


MOVNS 


ITEM 


2496 


002341 


271200 


000000 


ADDI 


ITEM.JOBSVM 


2497 












2498 


002342 


505200 


000007 


HRLI 


ITEM, PROG 


2499 


002343 


202040 


000005 


CMPLPl! MOVEM 


TACDAT 


250B 


002344 


313100 


000004 


CAMLE 


TACl.ITEM 


25UI1 


002345 


344040 


002362' 


AOJA 


TACCMPTHR 


2502 


002346 


336020 


000002 


SKIPI^ 


9TAC1 


2503 


002347 


344100 


002344' 


AOJA 


TACl,,-3 


2504 


002350 


211640 


000001 


MOVNI 


ACl.l 


2505 


002351 


505642 


777777 


HRLI 


AC1,-1(TAC11 


2506 


002352 


261060 


000002 


CMPLP2! PUSH 


TAC,9TAC1 


2507 


002353 


350000 


000032 


ACS 


TACl 


2506 


002354 


315100 


000004 


CAMGE 


TACl.ITEM 


2509 


002355 


336020 


000002 


SKIPN 


9TAC1 


251B 


002356 


254000 


002360' 


JRST 


.♦2 


2511 


0023^7 


364640 


002352' 


SOJA 


AC1,CMPLP2 


2512 


002360 


206645 


000000 


MOVSM 


ACl.(DAT) 


2513 


002361 


344040 


002343' 


AOJA 


TAC, CMPLPl 


2514 


002362 


505400 


254000 


CMPTHRl HRLI 


TEM, 254000 


2515 


002363 


202401 


777777 


MOVEM 


TEM,-1(TAC> 


2516 


002364 


275047 


002335' 


SUBI 


TAC,jOBSV(JDAT) 


2517 


002365 


213000 


000001 


MOVNS 


TAC 


2518 


002366 


504047 


000013 


HRL 


TACSGADMPtPPQG 


2519 


002367 


206047 


000003 


MOVSM 


TAC,SGALEN(PROG 


2520 


002370 


201040 


777776 


lOVEI 


TAC. -2 


2521 


002371 


506040 


002333' 


HRLM ■ 


FACUSRHCU 


2522 












2523 












2524 













ISAVE DOT STARTING ADDRESS HIGHER UP IN jOB DATA AREA 

ISO COMPRESS ALWAYS MOVES CODE DOWN 

IFLAG THAT SAVE GET IS UNDER WAY 

I SO THAT JOBHRL WILL NOT BE MODIFIED BY SETH5H ROUTINE 

I TO USER'S HIGH SEG RELOCATION INFO. SINCE 
I IT WILL CONTAIN COMPRESSION lOWD. 
I COMPRESSION WILL ALWAYS MOVE DOWN 
ISAV START ADDRESS FOR 10DMP 
IPOINT TO 1ST DATA WORD 
J0BSDD3 MT STARTS AT JOBSDD 
IIOWD FOR THIS SIZE CORE(-LENGTH TO WRITE) 
(POSITIVE LENGTH 

(ADD IN FIRST LOC-1 TO WRITE=HIGHEST LOC TO WRITE 
( TO MAKE END TEST 

(USE PROG FOR RELOCATION 
(SAVE 1ST LOC FOR lOWD 
(SEARCH FOR 1ST NON-0 WORD 
(THROUGH 

(THIS A DATA WORD? 
(NO, KEEP LOOKING 
(YES, ACl WILL BE AN lOWO 
(1ST LOCATION - 1 
(SAVE A DATA WORD 

(AT TOP? 

(NO, NEXT WORD NON-0? 

(NO, THROUGH THIS BLOCK 

(COUNT THE WORD AND CHECK NEXT 

(SAVE lOWD IN FRONT OF BLOCK 

(LOOK FOR NEXT NON-0 BLOCK 

(SET A JRST C(JOBSAJ 

(AT END OF FILE 

(COMPUTE WORD COUNT 

(MAKE AN lOMD 
) (START ADDRESS 
) ( lOWD FOR THE OUTPUT UUO 

IFLAG THAT CORE HAS BEEN COMPRESSED 

(KEEP LH NEG. COMMAND DECODER WILL EXPAN- 

( CORE ON START , DDT, SAVE. REENTER, SSAVE IN CASf 

( THIS SAVE 10 DOES NOT GO TO COMPLETION. (CONTflOL C 

( OR DEVICE FULL. SO THAT CORE DOES NOT GET EXPANDED 



COMCON 
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2525 


002372 


260140 


002560' 


2526 


1102373 


067000 


000003 


2527 








2528 


002374 


260140 


002542' 


2529 


002375 


265040 


000000 


2530 


002376 


452370 


220246 




002377 


406550 


542000 


2531 








2532 


002400 


201040 


000002 


2533 








2534 


002401 


260140 


003025' 


2535 








2536 








2537 


002402 


265040 


002375" 


2538 


002403 


422232 


242606 




002404 


522372 


254500 




002405 


432531 


446000 



SAVFINl 



PUSHJ PDP.SGDOA 
OUTPUT 0,.SGAI.EN 

PUSHJ PDP.SGREL 
jSP TACPHOLO 
ASCIZ /JOB SAVED/ 



SAVERR! MOVE! TAC.PRTERR 
PUSHJ PDP.SGREUL 



jSP TAC.PHOun 

ASCIZ /DIRECTORY FULL/ 



(DO OUTPUT, RELEASE, FIND TTY 
lOUTPUT UUO EXECUTED BY SGDO 
I RETURN HERE ONLY IF NO ERRORS 
IRELEASE DEVICE AND FIND TTY 
(PRINT MESSAGE AND STOP JOB 



lERROR CODE IN CASE RUN UUO ( PROTECT I ON ERROR) 

I CHANGE TO DISK ERROR CODE IF DEV IS OSK 

ICHANGE TO DISK ENTER ERROR CODE IF DSK 

I RELEASE DEVICE AND RETURN TO USERdF RUN UUO) 

I OR FIND TTY*PRINT 7CRLF 

(PRINT MESSAGE AND STOP JOB 



COMCON 
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2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 

2554 
2555 
2555 

2557 
2558 
2559 
2540 
2561 
2562 
2563 
2564 
2565 
2566 
2567 



002406 
002407 
002410 
002411 
002412 



002413 
002414 



265100 
260140 
265040 
452370 

426512 



265100 
254000 



ITHIS JOB GETS A JOB AREA FROM A RETRIEVABLE DEVICE 

ITHIS JOB RUNS IN) EXEC. MODE AND CALLS 10 ROUTINES DIRECTLY 

;N0 ATTEMPT IS MADE TO RESTORE STATUS OF 10 DEVICES, PC, OR AC'S 

JJOBPC IS SET TO STARTING ADDRESS OF J08 

(CORE MUST ALREADY HAVE BEEN ASSIGNED AND THE FOLLOWING LOC, SETUP IN 

IJOB DATA AREA! 

IJOBPDP. JOBREL 



INTERNAL GETJOP 
002436' GETJOBt JSP TACl.SGi: 



002512' 
002402' 
220246 
550000 



PUSHJ PDP.GETJB 
JSP TAC.PHOLD 
ASCI? /JOB SETUP/ 



(SETUP ACS, SETUP LOWER CORE(SGALEN,SGADmPS 

IGET THE JOB 

IRETURN ONLY IF EVERYTING OK 



JTHIS JOB GETS A JOB AREA FROM A RETRIEVAL DEVICE AND STARTS IT UP 

;JOB HAS JUST A JOB DATA AREA ASSIGNED WHEN CONTROL GETS HERE 
;THIS MONITOR JOB GETS A JOB AREA FROM A RETREIVABLE DEVICE 
(ASSIGNS CORE AND START 



INTERNAL RUNJOB 

002436' RUNJOB; JSP TACl.SGl 
002422' JRST URUNl 



(SETUP ACS, SETUP LOWER CORE ( SGALEN , SGADmP > 

(LH PF PC WORO=e(MSTART) SO LH OF TAC1=0 AFTER JSP 

( PUT TACl AS FIRST ITEM ON PD LIST(JOBPnl> 

I LH USED BY SGHELE ON ERROR TO SEE IF FROfI USER 

I AND LH ADDED TO START PC(JOBSA) BY URUm ' 
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?568 
2569 

2570 
2-571 
2572 
2573 
2574 
2575 
2576 
2577 
2573 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2596 
2599 

26!"a 

267.1 
2bf2 
26'3 
26i'4 
2bn 
26l?6 
2b7-l 
2 6."B 
26^9 
26! B 
2611 
2612 
2613 
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!<0241O 
5102417 



P!02420 
("02421 
5102422 
5102423 



!'02424 
5"02425 



?k?2427 

■■'02430 
?024,71 



IRUN UUO 
CALL! MOVE ACtXWQ N,D] 

CALL ACCSIXBIT /RUN/] 

ERROR RETURN IUNlESS LH = H4LT (PR 1 NT CONSOLE MESS, IF YrS) 

IK OK, TRANSFER TQ C(JOBSA)+N FQR NEW PROGRAM 

USERS ACS CLOBBERED ?0 CANNOT PASS DATA TO NEW PROGRAM 



WHERE: 



(502415 260140 000375' UHUN: 



200060 
260140 



20B047 
202044 
260140 
554i?3 



3B3i;'e 

260140 



000014 
002270' 



000000 

002247' 
002512' URUNi: 

000000 



D/ DEVICE NAME 

0*1/ FILE NAME 

D»2/ FILE EXT OR '' (LH SIXBIT) 

0*3/ DATE ETC 

0+4/ PROJECT, PROGRAMMER NO OR 0(CURRENT UFD OR DTA.MTA) 

D+5/ HIGHEST LOG DES1RE0(0R 0) ANALOGOUS TO RUN COMMAND 

LH IS IGNOREri(RATHER THAN ASSIGNING CORE TO HIGH SEG) 

INTERN URUN 
EXTERN JOBSA 

PUShJ PDP, RESET (RELEASE DEVICES 

I WARNING! THIS GOES VERV DEEP IN 

I PUSHDOWN, SEE MCO 518 

) (AC UUO PRESERVED IN RESET) 

•RESTORE CONTENTS OF USER'S CALLING AC 

IGET 6 ARCS FROM USER AND STORE 

) SAVE STARTING ADDRESS INCREMENT(LH OF TAC! 

I AND USER AC NUMBER! IN CASE OF ERROR RETURN) 

I SETUP ACS.DEVOAT TO DDR 

ISTQRE FILE NAME FOR LOW SEG 

IFOR SYSTAT 

IGET BOTH LOW AND HIGH SEGMENTS 

IGET STARTING ADDRESS INCREMENT(? IF RUN COM) 



MOVE TAC,?UUO 
PUSriJ PDP.GETARG 



MOVt TACSGANAMiPROG) 
MOVEM TAC, J8TPRG ( ITEM) 
PUSHJ PDP,GETJR 
HLR2 TACl, (POP) 



IFN rT2RFL,< 

EXTERN CHKMED 
200001 CAILE TAClil 

0^1522' PUShJ POP, CHKMED 



32426 273i:-7 5102334' 



ADDH TACl, JOPSA(JDAT) 



505100 
261140 
2540rB 



01''K00 
001002 

000000 



WRLI 
PuSh 



TAC1,USRM0D 
PDP, TACl 



JRST USRXIT 



I IS START INCREMFNT ?. -iR 1? 

INO, CHECK TO SEE IF Ti^IS IS S^AR4?lE Sl". 

I AND IF YES, SET MEDDLE SIT FOR THIS 'JS'S 

I SO UWP CANNOT BE TURMED OFF A.ND CORE F-R f\Z^ Slv' 

) CANNOT BE INCREASED OR DECREASED (TACl PRESERVlQ), 

!ADD STARTING ADDRESS TQ 3iTm 

I SO THAT <C0NTROL>C START *ILL START 

I PROGRAM AT SAME STARTING ADDRESS 

ISET USER MODE BIT IN PC 

IPUT ON PD LIST 

lAND GO TO RETURN TO USER AS IF FROM UUC 
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2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 



I?ia2432 



32432 2540(50 000000 



002433 
002434 
002435 



201040 
260140 
254000 



000013 

003030' 

000000 



lUUO TO GET JUST HIGH SEG ANO RETURN TO USER 
ICAUU IS THE SAME AS FOR RUN UUO EXCEPT THAT 
I IF ERROR RETURN HAS HALT IN LH, 



OK RETURN IS 
STANDARD CONSOLE MESSAGE 



SKIP RETURN 

IS PRINTED AND JOB STOPPEC 



UGTSEGl 



INTERN UGTSEG.UGTERR 



IFN FT2REL.< 

EXTERN UGETHI 
JRST UGETHI 



> 

UGTERR! 



MOVEI TAC.ILUERR 
PUSHJ POP.SGRELE 
jRST UUOeRR 



( IN SEGCON 

I ILLEGAL UUO ERROR CODE 

ISEE IF USER WANTS ERROR 

INC. PRINT ILLEGAL UUO 
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2626 

2629 
2632 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
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CI02437 
002440 



(102441 
?02442 
(102443 
002444 
5102445 



002447 
002450 



250140 
201040 



202047 
4020(?7 
4020JI7 
4020J7 
513037 



000010 
000004 
000035 

000HC6 
002317' 



002446 4020(17 00t«012 



(ROUTINE TO SETUP ACS, RESET 10, AND SETUP LOWER CORE LOCATIONS 

JFOR SAVE AND GET<SGALEN SET TO lOWD OR PP IF OTA OR DSK) 

jSGADMP set to InWD for this SIEE CORE 

ICALL! JSP TACl.SGl 

ALWAYS RETURN HERE, LINLESS DEVICE NOT FOUND 

DEVDAT SETUP TO DEVICE DATA SLOCKIBUT NOT INITED, UNLESS FT2REL=7) 

SO THAT INIT NOT NECESSARY IF SEG ALREADY KNOWN(NQ DTA QUEUEING) 

DEVICE CHARACTERISTICS WORD(DEVMOD) RETURNED IN AC TACl 

IF DISK SYSTEM 

INTERN SG2,SG3,SG4 (CALLED FROM SEGCON 

EXTERN USRODT,USRREL.JOBSAV,JDBFF,CPOPJ1 
EXTERN TTYFNU, JOBSVM, I ADRCK, SAVDMP 



002436 265040 001605' SGi: 



002415' SG2: 
000016 SG2A! 



jSP TACMONSTR 



PUSHJ POP, RESET 
MOVE! TACDH 



200047 
260140 



000011 
001600' 



002451 254000 002473' 



>«OVEM TACSGAMQDtPROC) 
SET2K SGaEND(PROR) 
SET^M SGaREN*1(PR0G) 
SET2M SGaREN+2(PR0G) 
MLL£S JOBCOR<JDAT) 

SET2M SGAHEO(PROG) 
IFE FT2REL.< 

OPEN 0,SGAMOO 
> 
IFN F12REL.< 

HOVE TACSGADEVIPROG) 

puShj PDP.DEVSRC 



JRST SGERR4 



(SETUP PRDG,PDP, JDAT, 1TEM=J0B NUMBER 

I PUT TACl ON END OF PD LISTCEXEC MODE PC, 

( SO ERROR MESSAGES WILL ALWAYS PRINT(SEF SGRELE) 

(RELEASE ALL DEVICES 

(DUMP MODE 16(0UMP BY RECORDS 

( IN CASE THIS IS MAGTAPE) 

(STORE FOR OPEN UUO 

10 END OF DUMPE MODE COMMAND LIST 

(FOR DELETE 

(FOR DELETE 

(0 THIRD ARG IN JOBOaTA 4REA(Sn :hKARG WILL 

( WORK ON FIRST CALL(SAVF AND GET) 

(CLEAR SUFFER HEADER ARG, FOR OPEN UUO 

(TRY TO ASSIGN DEVICE, SINCE IT MUST BE -ONE 



(PHYSICAL OR LOGICAL DEVICE NAME 

(FIND DEVICE AND SETUP OEVDAT To DDB 

( 00 NOT INIT DEV SINCE 10 MAY NOT BE NErESSARY 

( DO NOT WAMT TO WAIT I ,\J QTA SYSTEM 

( TAPE QUEUE IN 10/40 SYS 

(MOT AVAILABLE 

(DEVICE livITEOCQR FOUND) 



COHCON 



2669 
-fc70 
2671 
2672 
2673 
2671 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 

2688 
2689 
2690 
2691 
2692 
2693 
2691 
2695 
2696 
2697 
2696 
2699 
2700 
2701 
2702 
277,1 
27(54 
27R5 
27C6 
27(?7 
27?8 
2709 
2710 
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2711 
2712 
2713 
2714 
2715 
2716 



iCOMMCN rxiT FRC>< SaVHGH A^D GETMGH ROU T I NES ( H I GH SEG SAVE A^D GET) 
iSr THAT SGA... LOCATIONS ARE RESTORED TO ORIGINAL VALUES FOR LOW SEG 



(!a2452 20C047 00f'0f)0 SG3! 



?7cA<iZ 

002455 
f"02456 

002467 
002460 
002461 
002462 
002463 

P'02463 
002464 

('02465 

!"02466 



002467 
002470 
002471 
002472 



002473 
002474 
002475 

002476 

002477 
002500 
002501 
002502 
002503 

?025!"4 
002505 

002506 
002507 
002610 
002511 



201.:':i 
33(. ,■"0 

260140 
200040 

213000 
271040 
505040 
206047 



200106 
603100 



204047 
206047 



336047 
205040 
202047 
263140 



322300 
202303 
201040 
260140 

260140 
265040 
202351 
406550 
406061 

201a4n 
260140 

265040 
472364 
416204 
532230 



777777 
."00000 

000000 
000000 

000001 
002341' 
002460' 
000013 



000004 
200000 



000007 
000033 



fi000!;il 

00?ie00 

000001 
000000 



002504' 

000000 

00?I011 

0030,30' 

000000 

302410' 

752i;<0 

144630 

442400 

000012 
003030' 

002500' 
051652 
042212 
342400 



SG41 
IFN 



"CVE TAC, J0BFE( jnjT ) 

>'CVEI 'Ar,-1(TAC) 

SKIPV USRDDT 

PUSHJ PCP, lADRCK 
i^OVE TACiUSRREl 

MOVNS TAG 

ADDl TaCJOBSVM 

pRLI TACJOBSVM 

MOVS" TAcSGADMPfPROG) 



(FIRST FREE LOC IN JOB(SFT FROM Lri OF 

1 JOBSA WHICH IS SET BY LOADER 

IMAKE LAST LOC TO SAVE 0^ GETIMAKE 0=777777) 

(USER DDT IN USEdF YES, SAVE ALL OF CORr 

) SO HIS SYMBOLS WILL BE INCLUDED 

INO, ADDRESS TOO SMALL OR TOO LARGE? 

!YES, DUMP ALL OF CORE RATHER THAN GIVE 

) ADDRESS CHECK MESSAGE-HIGHEST REL.ADR, 

l-HIGHEST ADR TO SAVE OR GET 

ILOWER CORE iviOT DUMPED 

I IE FIRST LOC-1 TO BE DUMPED 

(STORE lOWD WORD OF THIS SIZE CORE 



FTDISK,< 

MOVE TACl,DEVMQD(OEVnAT) IRETURN DEVICE CHAR ACTER I ST I CS (I F DISK SYS) 
TLNE TAC1,DVDSK MS THIS DEVICE A DISK? 



MOVS TAC,SGAPPn(pROG) 
wGVSM TAC.SGALENtPROC) 



SKIPV TAr.SGAEXTtPROG) 
"OVSI TAC.SAVOMP 
MOVE." TAC,SGAEXT(PROG) 
POPJ POP, 



lYES. MAKE SURE FOURTH WORD IS PROJ.PROG NO. 

!N0, MAKE SURE FOURTH WORD IS lOWD FOR DrCTAPE 

1 SINCE DECTAPE USES RH TO COMPUTE LENGTH IN t< 

I FOR BOTH SAVE AND GET 

IDID USER SPECIFY AN EXTENSION ? 

)N0, USE .SAV OR ,OMP 

(AND STORE FOR LOOK UP OR ENTER 



iERROR ON INIT OR DEVICE SEARCH 



INTERN SGERRA 

SGERRAl JUMPE DEVDAT.SGERRI 

MOVE" DLVDAT,<°DP) 

MOVEI TACONAERR 

PUShJ PDP.SGRELE 

PuShj PUP,ERNAM 

JSP TAC.fHOLO 

ASCI? / \-0T AVAILA'^LF/ 



SGFRRl; MOVEI Tac.NSDERi-!: 

PUSHJ pdp.sgrElE 

JSP tacphold 

ASCI? /NO Such device/ 



ICALLED FROM SEGCON 

JWAS DEVICE FOUND, BUT JUST UNAVAILABLE? 

(YES, Save dob address for message(ernam) 

(ERROR CODE IN CASE RUN UUO(nEVICE NOT A'.'AILABLE) 
IRETURN TO USER IF RUN UUQ i 

I OR FIND TTY AND PRINT 7CRLF 
(PRINT DEVICE NAME USING (PuP) 
(START TTY A\C STOP JOB 



(ERROR CODE IN CASE RUN UUOINO SUCH DEVI-E) 
(RETURN TO USER IF RUN UUO 
( OR FIND TTY AND PRINT 7CRLF 
(START TTY AND STOP J0(3 
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Z717 








Z7ia 








2719 








2720 








2721 








2722 








2723 








2724 








2725 








2726 








2727 


002512 






2728 








2729 








2730 


H02512 


260140 


000000 


2731 








2732 








2733 








2734 








2735 


002513 


254000 


002533' 


2736 








2737 








2738 








2739 








2740 


B02514 


076000 


000000 


2741 








2742 








2743 








2744 


?02515 


254000 


003012' 


2745 


l?02516 


574107 


000003 


2746 


002517 


260140 


002753' 


2747 








2748 


002520 


260140 


002776' 


2749 


002521 


200106 


000004 


2750 


002522 


213000 


00005<1 


2751 


002523 


271040 


002461' 


2752 


002524 


603100 


000020 


2753 


002525 


506047 


000003 


2754 


002526 


553007 


000000 


2755 








2756 








2757 


002527 


260140 


002557' 


2758 


002530 


066iJ00 


007003 


2759 


002531 


200047 


002330' 


2760 


002532 


202047 


002327' 


2761 


002533 


550047 


002445' 


2762 








2763 


002534 


336000 


00005'! 


2764 


002535 


200040 


002456' 


2765 


002536 


260140 


002756' 


2766 








2767 


CT02537 


2601413 


002776' 


2768 


002540 


200040 


002535' 


2769 


002541 


542047 


002533' 



;ROUTINE TO GET FILE FROM OEVICEdOW ANO/OR HIGH) 
CALL! ACS JDAT.PROGiPDP.OEVOAT SETUP 
MOVE ITEM, JOB NUMBER 

IFN FTD1SK.<M0VE T ACl . DEVMOD (DEVDAT 1 ;DEVICE CHAR, 
PUSHJ PDP.GETJB 
RETURN ONLT IF EVERYTHING OK 



EXTERNAL JOBCOR. JOB, CPOP J. J0BS41 , J0B41 



GETJBt 
IFN FT 



RN 



2REL.< 

EXTERN GETHGH 
PUSHJ PDP, GETHGH 



JRST LOWriN 



LOOKUP B.SGANAM 



JRST NOFILE 

HLRE TACl,SGALEN(PROf,) 

PUSHJ PUPiCKIOyp 

PUSHJ PDP.GETCOR 

MOVE TACl.DEVMODtDEVDAT) 

MOVNS TAC 

ADOI TACJOBSVM 

TLNE TACl.OVMTA 

HRLM TAC,SGALEN(PR0G1 

HRR2S JOL'POK JOAT) 



PUSHJ POP.SGDO 
INPUT 0,SGALEN 
MOVE TAC.JOBS4l(J0iT) 
"OVEM TAC, J0P4l(JDAT) 
LOWFIN: hRRZ TAC,J0BC0R( JOAT) 

SKIPM TAC 

MOVE TACUSRREU 

PUSHJ PDP.CKSARG 

PUSHJ PDP.GETCOR 

MOVE TAC.USRREl 

HRRM TACJOBCORt J04T) 



ISEE IF HIGH SEG ALREADY EXISTS AND BEING SHARED 

I IF NOT, TRY TO LOOKUP AND READ IN HIGH FILE 

I IF ,SHR DOESN'T EXIST, TRY .HGH, IF NEtTHER-SKIP RETt 

I TAC1=DEVM00<DEV0AT) IF DISK(DEV CHAR.) 

IHIGH SEG NOW IN CORE AND NO LOW FILE NEEDED 

I LOW FILE NEEDED 

I EITHER BECAUSE NOHIGH SEG 

I ORHIGH SEG ALSO NEEDS LOW FILE 

(LOOKUP LOW SEG FILE( EXT = SAV , DMP OR LOWdF HIGH SEG 

I REQUIRES LOW SEG AND USER DID NOT TYPE EXT) 

I MODE=SAVMOD SO DECTaPE SERVICE WILL RETURN 

I lOWO IN Et3(TEMP0RARY) 

IGO PRINT FILE, EXT NOT FOUND 

l-NO. OF WORDS IN FILE 

JCHECK USER'S SUPPLIED CORE ARG TO MAKE SURE NOT 

ITOO SMALL. RETURN LARGER OF FILE SIHE OR CORE ARG 

IQK. TRY TO GET CORE 

(DEVICE CHARACTERISTICS 

1-WORD COUNT FOR ALL USERS CCRE 

(MAG TAPE? 

(YES. USE USER-SPECIFIED CORE ARGUMENT 

(TURN OFF USER MODE PC FLAG IN CASE THIS 

(IS A RUN UUO.SO ERRORS WILL NOT TRY TO RETURN TO uSlR 

(READ IN FILE INTO LOW SEGMENT 

lEXECUTED FROM SGOO 

(RESTORE USER UUO JSR LOG 

(SAVED 8Y SAVE 

(CORE ARG FROM PREVIOUS SAVE(THIS MONITOR 

I ALWAYS STORES SOMETHING) 

(IS THIS AN OLD FORMAT FILE WITH NO CORE ARG TO SAVE? 

(YES. USE ASSIGNMENT MADE WEM LOW FILE RfAD IN 

(RETURN ONLY IF USER'S SUPLLIED ARG IS OR NOT 

( SMALLER THAN SAVE CORE ARG. RETURN LARGER 

(TRY TO GET THIS AMOUNT OF CORE 

(HIGHEST LOC ASSIGNED TO LOW SEG 

(SET INITIAL CORE ASSIGNMENT IN JOB DATA AREA FOR 
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2770 
2771 
2772 



I I.SER TO USE TO RESET c:RE 
1 PR'^GRAM IS PrS'ARTFC 
I ""ALL INTO SG^EL 



TO IMTIAL Sj-TTI- 



WHE ■ 
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2826 
2827 


002573 


201040 


000006 


MOVEI TAC.TRNERR 


2826 
2829 


002574 


260140 


003030' 


PUSHJ PDP.SGRELE 


2830 
2831 


002575 
002576 
002577 
002600 


265040 
522450 
466232 
476344 


002506' 
147246 
351622 
042644 


JSP TACPHOLD 
ASCI? /TRANSMISS 



lYES, ERROR CODE IN CASE THIS IS RUN UUO 

I (TRANSMISSION ERROR) 

IRELEASE DEVICE AND ERROR RETURN TO USER IF RUN UUO 

I OR FIND TTV AND PRINT JCRLF 

ISTART TTV AND STOP JOB 



002601 512372 200000 
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?832 
?833 
S'834 
2835 
?836 
SB37 
?838 
2839 
2840 
2841 
2842 
2843 
2644 
2845 
2846 
2847 
2848 
2849 
285a 
2 851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
;'8fta 
2861 
2862 
2863 
2864 
2865 
2866 
286 7 
2868 
2869 
28 7H 
2871 



PI026C12 
002603 
0026514 
C02605 

0026(>6 
002607 
002610 
{■02611 
f!02612 
{"02613 
('02614 
002615 



002517 
002620 
002621 
002622 
002623 
Pil2624 
002625 
002626 
002627 
002630 
002631 
t'02632 



574747 

213200 
271740 
505740 

331247 
254230 
553200 
303240 
254200 
302240 
2542^1? 
336207 



5 612 4 
250247 
577200 
3422140 
2052i41 
3222t40 
5 4 1 Ki 4 
2 0110 7 
22)2242 
2542:00 
2 52^40 
502247 



000003 
000017 
002523' 
000007 

002364' 

002741' 

000001 

002564' 

002633' 

000000 

002633' 
000000 



002616 364740 002741' 



000000 

002606' 
000001 

002633' 

000001 

002631' 

002613' 

002620' 

000002 

002633' 

777776 

002626' 



IROUTINE TO EXPAND CORE AFTER 4 SAVECLOW SEG ONLY) 
(CALL! MOVE OEVDAT, DEVICE ADR. 
MOVE PROGrJOBADR. 
MOVE ITEM, JOB NUMBER 
PUSHJ POP, EXPAND 
ERROR RETURN, ADR. CMECK, OR NEED CORE BUT NOT CURRENT USER(C0MMaN0 

DECOi^ER EXPANDING AFTER USER HAS REDUCE CORE) 
OK RETURN, CORE EXPANDED 
CALLED FROM SAVE AND COMMAND DECODER 
START, CSTART, DOT, REENTER, SAVE, SSAVE COMMANDS IF CORE STILL COMPRESSED 



EXPAND! 



EXP£: 



HLRE AC3,3GALEN(PR0G) 


I-LENG 


MOVNS AC3 


l*LENG 


ADDl AC3,J0BSVw 


lAOO F 


HRLI AC3,PR0G 


(PUT P 




1 AC3 


SKIRL TAC,J0BSV(PR0G) 


IIF FI 


JRST SGDOl 


lOLD F 


HRRZS TAC 


ILOOK 


CAILE T^CJOPDDT 


IIS IT 


JRST E<PND1 


!N0. 


CAIE TAC.JOBSAV 


1 IS JO 


JRST EXP'JDI 


INO, E 


SKIPM J0BSV3(JOAT) 


IIS TH 




1 CONV 




1 IT J 


SDJA AC3,3GD01 


lYES. 




1 (NON 


HRROI TACjORSDi 


lYES. 


FXCH TAC,JORSV(PROG) 


IHAP. 


HLRE? TAC 


1 WORD 


40JE TAC,i:xpf;Dl 


1 JUST 


MOVSI TAC,1(TAC) 


IMAKE 


JUMPF TAC.EXPE 




HRRI TAC.JOBSAV 


ISO NE 


«<OVEI TACl.JOBSV(PRar:) 




"OVEM TAC.2(TAC1) 


ISTORE 


JRST EXPnOI 




N'OVSI TAC, -2 




MLLf< TAC, JOBSV(PROG) 





TH OF FILE 

Tri OF FILE 

IRST LOC-1 TO, FORM HIGHEST LEGAL ADR. 

ROG IN LH FOR COMPARE 

SET FOR ADDRESS CHECKING BELOw 

RST LOC IS POSITIVE 

ORMAT, SO DONT EXPAND 

AT 1ST WORD OF FILE 

BELOW JOBJDA? 
NEW COMPRESSED FORMAT 
SOOT THE DATA WORD? 
XPAND 

E SAVE FILE FROM CONVERT? 
ERT DOES NOT 2ER0 COMPESS 

UST WRITES ENTIRE FILE WITH 1 lOWD IN i^RONT 
GO BLT DATA DOWN AS IF OLD DISK SAVE FILE 
-COMPRESSED) 
CHANGE TO lOWD l.JOBSDD 

The iowd IS fixed 

COUNT OF IOWD 

1 DATA WORD - THROUGH 

IOWD N-2.J0BSAV 



ISO NEXT DATA MDS WILL BE '=kipce- 
ISTORE IN COMPRESSED DATA 
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2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
28»1 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
289a 

2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
29i»2 
29P3 
2904 
29(?5 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 



ei02633 
002634 
002635 
0U2636 
002637 
002640 
002641 
002642 
002643 
002644 
002645 
002646 
002647 
002650 
002651 
002652 



002654 
002655 
002656 
002657 
002660 

002561 
002662 
002663 
002564 
002565 
002566 
002667 
002670 
002571 
002672 
002573 
002674 
002675 
002675 
002677 
002700 
002;01 
002702 
002703 
0027?4 
002705 
002705 
002707 
002710 
002711 
002712 



200040 
200120 
550640 
305640 
344640 
574640 
213000 
506640 
271055 
313040 
254000 
271115 
250120 
321100 
261140 
550060 



003067' 
000001 
000002 
002625' 

002713' 

000002 

000015 

000002 

000001 

000017 

002750' 

000000 

000001 

002636' 

000001 

000001 



002653 650040 001777 



554100 
317040 
254000 
312200 
254000 

260140 
252140 
201660 
505655 
541655 
402015 
505040 
251660 
561060 
550541 
271647 
554701 
275115 
402001 
3740H0 
3700i"'0 
305547 
3740"e 
252055 
1020/1 
3 6 7 7 ■^ 
3131,'0 
2540150 
2507<'7 
2027',-7 
2 5 4 :' 



000007 

000002 

002662' 

002551' 

002/50' 

002776' 

000002 

000002 

000001 

000002 

777777 

000007 

000001 

000002 

000000 
000000 
000000 
000001 

000000 
000001 

000015 
002332' 
000001 
000000 

0000f'l 

002700' 
003067' 
002672' 
002701' 
002511' 
002747 ' 



!COME HERE TO DO THE ACTUAL EXPANSION OF A FILE 

EXPNDl! MOVE TACCXWD PR0G,J0BSV3 IIT WAS READ INTO JOBSV 



EXPLPl; 



EXPCOR; 



EXPLP2I 



EXPLPil 



MOVE 


TACliSTAC 


HRR2 


ACl.TACl 


CAIGE 


ACl, JOBSAV 


AOJA 


ACl.TOOLOW 


HLRE 


AC1,TAC1 


M0VN5 


ACl 


HRLM 


ACl.TACl 


ADD! 


TACK ACl) 


CAMLE 


TAC,AC3 


JRST 


SGOOER 


ADOI 


TAC1,(AC1) 


EXCH 


TACl,9TAC 


JUMPL 


TACl, EXPLPl 


PUSH 


POP.TAC 


HRRZ 


TACSTAC 


TRO 


TAC,1777 



HLRH TACl, PROG 

CAMG TAC.TACl 

JRST EXPCOR 

CAME ITEM, JOB 

JRST SGDOER 



PUSHJ 

POP 

MOVEI 

MRLl 

mRRI 

SETHM 

HRLl 

BLT 

HRROI 

HRRZ 

AODI 

HLRZ 

SUBI 

SETZM 

SOSA 

SOS 

CAIGF 

SOSA T 

OOP 

SETZM 

SOJG 

CAMLP 

JRST 

FXCh 

M V E M 

JHST S 



PDP 
POP 
ACl 
ACl 
ACl 
-K 
TAC 
ACl 
TAC 
ACl 
ACl 
AC2 
TAC 
(TA 
TAC 
ACl 

ACl, J 

AC 
TAC 
1(T 
AC2 
TAC 
EXP 
AC2 

AC2,J 

r,un2 



,GETCOR 

,TAC1 

,9TAC1 

.KACl) 

.2(AC1) 

ACl) 

,PROG 

,?iTAC 

,SiTac1 

, (TAC) 

, (PROG) 

. (TAC) 

l.l(AC2) 

C) 



IFIRST lOWO 

(ADDRESS OF lOWD 

ILEGAL? 

INO, DELETE DATA WHICH IS TOO LOW 

lYES. GET WORDCOUNT 

I+N 

ICONVERT lOwn TO ^N IN LH 

(ADDRESS OF NEXT lOWO 
I IN BOUNDS? 
INO, COMPLAIN 
(YES, CHANGE RH OF lOWD 

(MAKE IT XWO ♦N,A+N-1 AFTER DATA BLOCK 
(CONTINUE IF NEXT THING IS AN IDWD 
(SAVE DATA LOCATION 

(TOP REAL LOCATION NEEDED 

(MAKE IT NK-1 

(PRESENT SIH OF LOW SEG 

I IS THERE ENOUGH? 

lYES, 

!N0, IS TIS THE CURENT JOB? 

INO, GIVE ERROR RETURN, MUST BE COMMAND ~ECODER 

( DOING EXPAi^JD AFTER USER HAS REDUECED CrRE 

lYES. GET IT 

;TOP DATA LOC 
(SET TO ?ERO TO TOP OF CORE 



(RELOCATE TOP LOC OF JOB 
(ZAP, CORE I? FROM h^qr p 

(FROM Data poi^jter 

(TO DATA POINTER 

(RELOCATE 

IWORD COUNT 

IPOINT TACl TO PREVIOUS lOWQ 

IZERO This lOWD 

IPOINT TO DATA 



OHSOD(PROG) IDON'T STORE DATA ^ELOhi JOBSOD 



(A-1) IMOVF A DATA WORD 
AC) IZERO WHERE IT CAME FROM 

.EXPLP3 (LOOP IF MORE DATA 

l,i:xWD PR"G, JOBSV] ITMROUGH? 
LP2 INO. DO NEXT SLOCK 

JO(>S''0<P'OG) lYES, ZERO JOFSDO 
OBOnT(jOAT) ISET USEP DQT STR AOR 

lAVD SETUP uSRDDT IN MONITOR PROTECTED 
I FROM THIS USER 



COMCON - COMMAND DECOOCR AND SAVEGET ROUTINES - V433 MACRO, V36 19tB2 4-JUN-69 PAGE 100 

SAVGET - SAVE, GET, R, RUN COMMANDS AND RUN.GETSEG UUOS 

2'?;! ITHIS ROUTINE WIUL DCLETE ALL DATA FROM A COMPRESSED FILE 

2";^ IWHICH IS BELOW JOBSOD (PROBABLY W^ilTTEN BY TENDUMP) 

nil ^^"1^ 57-1720 0000PI1 TOOLOW: HLRE AC2,»TAC I WORDCOUNT OF OFFENDING lOWD 

2928 002714 274640 000016 5UB AC1,AC2 lAODRESS+N 

292 002715 307640 0027101 CAIG AC1,.J0RSD0 US ANY DATA IN IT LEGAL? 

2930 002716 344040 002727- AOJA TACiMXlOWD INO, TEST NEXT lOWO 

ootI Innlll "f*^^ 002715- SUBI ACl.JOBSDD lYES, NUMBER OF WORDS TO KEEP 

293. 002720 213000 000016 MOVNS AC2 (TOTAL NUMBER OF WORDS 

llli I'illll IIV^ S^^^^^ -^^ AC2,AC1 (NUMBER OF WORDS TO DROP 

2934 002722 507000 000016 MRLS AC2 HMTO BOTH HALVES 

293E. 002723 270720 000001 ADD AC2,CiTAC INEW lOWD FOR ONLY GOOD DATA 

Illy lllllX 'll?.t IIT' '°°' TAC,(AC2, .POInI UC ?S LAST BaS DA?I LOC 

2937 002725 202720 000001 mdvem aC2,PTAC JSTORE UPDATFD IOWD OVER IT 

2936 002726 254000 002733- JRST lOWBLT j GO BLT OVEr'baO DATA 

2939 002727 274040 000016 NXIOWDl SUB TAC,aC2 IPOINT TAG TO NEXT IOWD 

2940 002730 550660 000001 hRR2 ACI.PTAC IGFT ADDRESS 

2941 002731 305640 002617' CAIGE ACl.jOBSDl (LEGAL? 

2942 002732 344640 002713' AOJA ACl.TOOLOW (NO. AT LEAST PART OF THE DATA IS LOW 

2943 002733 205120 0000(!l lOwBLT: MOVSI TACl,9TAC (YES. KEEP THE ENTIRE IQWD DATA 

2944 002734 541107 002632- HRRI T ACl , JOBSV ( PPOG ) (TACl IS A 'iCt POINTER 

2945 002735 275040 002734' SUBI TACjOBSV (RH OF TAG IS AMOUNT BEING DELETED 

2946 1^02736 275741 0i)00K0 SUBI AC3,(TAC) !AC3 POINTS TO TOP OF DATA READ Iig-(N) 

2947 002737 251120 000017 RLT TACl,5.AC3 (MOVE ONLY GOOD DATA DOWN 

2948 002740 254000 002633' jRST EXPNCl )G0 EXPAND THE GOOD DATA 
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?9<I9 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
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PI02741 
002742 
l?02743 
("02744 
t502745 
002746 
002747 
002750 
002751 



201047 
505041 
335007 
505041 
275740 
251060 
354003 
262140 
40?0fi7 



002711' 

000000 

002735' 

000000 

002742' 

000017 

00005^0 

000001 

000127' 



SGDOi: 



SGD02: 
SGDOEHi 



002752 263140 000000 



GETSEG IIUOS 

«OVEI TAG, JOROTT(PROG) 

MRLI TAG, JOBSVG(TAC) 
■^KIPGE JOBSV(JOAT) 
HRLI TAC,J0BS0P(TAC) 
SUBI AG^.JOBSVO 
RLT TAC,aiAG3 
AOSa (PDP) 
POP °DP,TAC 
SETHM JOPHCU(JDAT) 

POPJ PDP, 



(MOVE EVERYTHING DOWN (MUST RE NON-COMPRpSSED OSK FILE 

;0R CONVERT SAVE FILE 

IIS THIS CONVERT FILE(FIRST WORD IS lOWQ)? 

lYES, ALSO SKIP OVEH lOWO 



ISET FOR OK RETURN 

ICLEAR LH ANO SET HIGHEST USER CHAN, IN 
'■ ^SE To 0(WHERE IT SHOULD BE ANYWAY) 
lERROR HETURN OR OK RETURN 



COMCON - COMMAND DECODER AND SAVEGET ROUTINES - V433 MACRO, V36 19102 
SAVGET - SAVE. GET, R, RUN COMMANDS AND RUN,GETSEG UUOS 



4-JUN-69 PAGE 102 



2961 
2962 
2963 
2961 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2990 
29R1 
29S2 
29S3 
29fl4 
29S5 
29B6 
2987 
2988 
29 8 9 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3 0!)U 
3031 
3002 
30?3 



002753 201040 

002754 542047 

002755 274040 



002756 
002757 
002760 
002761 
002762 



002763 
''02764 
002765 

002766 
00276/ 
002770 
002771 
002772 
002773 
002774 
002775 



435040 
317047 
334H47 
336007 
263140 



261140 
201040 
260140 

550043 
242040 
260140 
265ei40 
455011 
416372 
472130 
420000 



IROUTINE TO CHECK USER SUPPLIED CORE ARG AND CHECK TO SEE IF 
OR GREATER THAN OR EQUAL TO IDWD USED TO SAVE OR GET FILE 
CALL! HLRE TAC1,-N0, OF WORDS IN FILE 
PUShJ PDP,CKIOWO 

RETURN WITH LARGER OF 2 POSITIVE NOS. IN TAC(1777 ORED IN) 
DO NOT RETURN IF CORE ARG SUPLLIED BY USER IS TOO SMALL 
CALLED FROM SAVE AND GET 



0026041 CKIOWOi 

000003 

000002 



EXTERN JOBSVM 

MOVEI TACJOeSVM 
MRRM TAC.SGALENCPROG) 
SUB TAC:.TAC1 



(FIRST LOC-1 READ OR WRITTEN IN USER AREA 
IRESTORE RH TO JOBSAV AFTER LOOKUP 
IHIGHEST LOC=FIRST L0C-1*LENGTH OF FILE 
I FALL INTO CHSARG 



001777 
000015 
00001b 
000015 

000000 



000001 
000010 

003030' 

000000 

777766 

001333' 

002575' 

743100 

242500 

542212 

000000 



IROUTINE TO CHECK USER SUPPLIED CORE ARC AND CHECK IF 
OR GREATER THAN OR EQUAL TO CORE ARG FQR PREVIOUS SAVE 
CALL! HRRi TAC,J0BC0R(JDAT) IWRITTEN WHEN FILE SAVED 

PUSHJ PUP.CKSARG 

RETURN WITH LARGER OF 2 IN AC TAC, ONLY IF USER ARG NOT TOO SMALI 
CALLED ONLY FROM GET AFTER JOB DATA AREA LOADED FROM FILE(JOBCOR) OR HIGH SEC 



INTERN fjROOMl 



(CALLED FROM SEGCON 



CKSARG; 



lORI TAC, 1777 
CAMG TAC,SGANEW(PROG) 
SKIPA TAC,SGANEW(PROe) 
«KIPW SGANEW(PROG) 
POPJ POP, 

(ROUTINE TO PRINTE #K OF CORE NEEDED 
CALL! MOVE TAC, HIGHEST REL, USER ADR, 
PUShJ PUP.NROOMl 
•>'EVEP PETURN 



(MAKE SURE lK-1 

(IS USER SUPPLIED CORE ARG BIGGER? 

(YES, RETURN IT 

(NO, DID USER SUPPLY ONE? 

(NO, RETURN LARGER OF TWO 



NROOMl! PUSH POP, TAC 
NOROOMi MQVEI TAC<MECERR 
pushj PDP,SGRELE 

hRRE TAC, (POP) 
LSH TAC, -12 
fUSHJ PUP.DECPl 
JSP tacphold 



ASCI? /K OF CORE NEEDED/ 



(YES, ERROR, USER'S SUPPLIEC C"R>^ «^G ';- 5^1.. 
(ERROR CODE IN CASE THIS IS "uN Ujn(^GT rN,nuG" CiPT 
(RELEASE DEVICE AND ERROR RETURN TO USER IF RU\ ju3 
( OR FIND TTY AND PRINT JCRLF 
(GET AMOUNT OF CORE REOUESTE" 
(CONVERT TO NO, OF IK BLOCKS-1 
(ADD 1 TO TAC AND PRINT DECIMAL 
(START TTY ADN STOP JOR 
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305)4 








30C5 








30(»6 








3 0("7 








3008 








30?9 








3010 








3011 








3012 








3013 








3014 


002776 


552047 


000014 


3015 


C02777 


261140 


000001 


3016 


003000 


0476^0 


000011 


3017 


C03001 


254000 


002764 


3018 


003aP2 


254000 


002022 



ROUTIME TO ASSIGN CORE FOR LOW AND HIGH SEG 
CALL! ^OVE PROG, LOW SEG RELOCATION 

HRR TAC, HIGHEST LOG DESIRED 

PUSHJ POP,GETCOR 

RETURN OMLV IF ASSIGNED 



INTERN GETCOR 

GETCORl HRRZM TAC.SGACORIPROG) 
PUSH POP, TAC 
CALLI SGACOR.ll 
JRST NOROOM 
JRST TPOPJ 



ISOTRE CORE ARG FOR CORE UUO IN USER AC 

ISAVE IN CASE OF ERROR 

100 CORE UUO 

;N0T AVAILABLE, PRINT ERROR AND AMOUNT TRYING FOR 

lOK, REMOVE TAC FROM PD LIST AND RETURN 
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SAVGET - SAVE, GET, R, RUN COMMANDS AND RUN.GETSEG UUOS 

nil (ROUTINE TO PRINT NOT A SAVE FILE IF WRONG FORMAT FILE DETECTED 

'021 INTERN GFTERR 
3022 

3023 003003 201040 000007 GETERK: MOVEI TAC.NSFERR (ERROR CODE IN CASE THIt; H! Rnw iiin^wnT cAi/r r.ir, 

3024 0,3004 260140 003030- puShJ PDP.SgRELE iRELEASrSEV {ce'^ND ERROR 'rE^URn'tQ 'uSEr'Jf'run'SuO 

3026 003005 265040 002771- jSP TAC.PHOLD I STUART ' nv'lNDl?Op''iSB ''"'' 

3027 003006 472372 420202 ASCI? /NOT A SAVE FILE/ 



3028 



003007 202470 153212 

003010 202151 146212 

003011 000000 000000 



I'^'^l (ROUTINE TO PRINT FILE NOT FOUND OR NEEDS 2 RELOC REG 

^SJJ INTERN NOFILE (CALLED FROM SEGCON 

O032 

3033 003012 201040 300000 ^o^ILE, mqVEI TACFnFERR , ERROR CODE IN CASE THIS IS RUN UUO(FILE NOT FOUND) 

3035 003013 260140 1303025- pm.m , Pno . ..or, , !JI?*1':^^^?°!'.E°,°£ I? ?.'!LE??°?-^:°OLI^DEV IS DSK 

3036 



003013 260140 .03025- PUSHJ PDP.SGRELL 1 RETURN dIskLoSkUP ^R EN?ER ERROR CODE ' iFD^K 



3037 ' RELEASE DEVICE AND ERROR RETURN TO USER IF HE WANTED 

Bl Z'.'.K '''.''' ""^"^^ ^°^E TACl.SGANAM.PROG, ! PR I Nt'f'JlE '^A^ '"'' '"'' 

3040 003015 260140 H01661' PUShJ PDP.PRNAme i i mu^ ^.«^t 

3041 003016 260140 H02041- puShJ PDP.PRPER (PRINT PERIOD 
3342 003017 510107 H00001 HLLi TACl ,.SGA£XT ( PROP, ) ,PR NT EXTENSION 
3043 003020 260140 (103015- PUSHJ PDP.PRNAME itNaiuiN 

i^JA 2"^"^^ 265040 (103005- JSP TACPHOLD (START TTY AND STOP JOB 

3045 003022 202351 752100 ASCI? / NOT FOJND/ i T anu b i up JOB 

003023 432372 547210 

003024 000000 000000 
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3046 








3047 








3048 








3049 








3050 








3051 








3052 








3053 








3054 








3055 








3056 








3057 


003025 






3058 








3059 


003025 


200106 


000004 


3060 


003026 


603100 


200000 


3061 


003027 


550047 


000001 


3062 








3063 


003030 


200107 


002526' 


3064 


003031 


607100 


010000 


3065 


003032 


254000 


003050' 


3066 








3067 


003033 


261140 


000001 


3068 


003034 


540600 


000002 


3069 


003035 


260140 


002276' 


3070 


003036 


554100 


000001 


3071 


003037 


262140 


000001 


3072 


?03040 


306100 


254200 


3073 


003041 


254000 


0030501 


3074 


(»03042 


540607 


000000 


3075 


003043 


260140 


000000 


3076 


!»03044 


332000 


002542' 


3077 








3078 


003045 


071000 


000000 


3079 


5-03046 


261147 


003030' 


3080 


003047 


254000 


002431' 


3081 








3082 








3083 


003050 


260140 


002542' 


3084 


003051 


265040 


002017' 


3085 








3086 








3087 


003052 


374321 


200000 


3088 








3089 








3090 


003053 






3091 


003053 


545747 


576564 


3092 


^03054 


504554 


600000 


3093 


003055 


637163 


644164 


3094 


003056 


435755 


605154 


3095 


0030S7 


545747 


515600 


3096 


003060 


637163 


000000 


3097 


003061 


446353 


000000 


3098 


003062 


102500 


001341' 



(routine to release device on an error and check to see 

iif this is a monitor command or user uuo 

i if user uuo. give error return to user unless there is a halt 

)in lh of eror return word, in which case find tty, print 7crlf 

land return to caller so can add more info to error message and stop job 

icall: movei tac. error cooe(Def!ned in S.MAC) 

! pushj pdp.sgrele 

100 not return to caller if user wants error return on run and getseg uuns 

EXTERN JOBPDli J0BPD3.USRJDA 



ILOOKUP OR ENTER FAILURE 

)IS THIS DEVICE A DISK? 



SGRELLI 

IFN FTDISK.< 

MOVE TACl,DEVMOO(DEVnAT) 

TLNE TACI.DVDSk 

HRR? TAC,SGAEXT(PR0G) iYES, RETURN DISK SERVICE ERROR CODE 
> 
002526' SGRELE! move TACl , JOSPDl ( JDAT ) (GET FIRST PC ON PD LIST 

TLNN TACl.USRMOD IIS IT IN USER MOOEdE USER UU0)7 



jRST SGRlEI 

push POP, TAC 

MRR UUOiTACl 

PUSHJ PDP.GETWnU 

HLRZ TACl, TAC 

POP POP. TAC 

CAIN TACl, (HALT) 

JRST SGRlEI 

HRR UUO. JDBPD3( JOAT) 

PUShJ PDP.STOTAC 

SKIPE USRJDA+0 

RELEAS 0, 

PUSH PDP,JOBPDl(JDAT) 

JRST USRXIT 



002542' SGRLEI: PUShj P0P,SgREL 
JSP TACCONMES 

ASCI? /? 



INO. MUST BE MONITOR COMMAND OR CALLER OvERLAYED 

) RELEASE DEVICE, FIND TTY, AND RETURN TO CALLER 

(SAVE ERROR CORE 

(ADDRESS OF RETURN AFTER RUN OR GETSEG UUO 

IGET ERROR RETURN WORD FROM RUN OR GETSEf, UUO 

IGET OP CODE 

IRESTORE ERROR CODE 

I IS LH HALT? 

IYES, RELEASE DEVICE, FIND TTY, AND RETUHv TQ CALLER 

INO, AC NUMBER OF RUN OR GETSEG UUO 

ISTORE ERROR NUMBER IN USER AC 

IDO NOT RELEASE CHANNEL IF NOT INITED YET 

I UUO HANDLER DOES NOT ALLOW THIS FROM EXEC MODE 

IRELEASE DEVICEdF INITED) 

IPUT RETURN nN END OF PDLiST 

lAND RETURN TO USER TO HANDLE ERROR 



IRELEASE DEVICE AND FIMO TTY 

JPRINT 7CRLF AND RETURN TO CALLER 

I MHO WILL PRINT REST OF ERROR MESSAGE 4"0 STOP JOB 



COmENDI FNO 



lENO OF COMCON 
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3099 


003043 


4<I0600 


000002 


3100 


003064 


064240 


000000 


3101 


0030A5 


201004 


020000 


3132 


00306« 


000007 


002717- 


3103 


003067 


000007 


002743' 



MO ERRORS DETECTED 
PROGRAM BREAK IS 203070 
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ACl 


S00015 


INT 


ACTCHl 


0121572 




ALOGIN 


000562 




ANYRIN 


002074 




ASGHGH 


002054 


EXT 


ASSERl 


000707 




ASSG0 


000653 




ASSG3 


000651 




ASSG6 


000642 




ASSMS2 


000716 




4TT2 


001214 




ATT5 


001235 




BREAKS 


001766 


EXT 


C 


000012 




CERR 


000433 




CHKACT 


000101 




CHKOLY 


000111 




CHKRUN 


000070 




CKIOWD 


002753 




CLOGIN 


000600 




CMPLPl 


002343 




CMWB 


200000 


INT 


COMCNT 


000155 


EXT 


COMEND 


003053 




COMERA 


002000 


INT 


COMERR 


002001 


INT 


COMLP 


000013 




COMRET 


000145 




CON0 


002021 




CONMSl 


002020 




CONIC 


000463 




CORl 


5 1' 4 




CORE 


000473 




C0RM4X 


000516 


EXT 


CP0PJ2 


002135 


EXT 


CTEXj" 


001727 




CTEXT 


0017?1 


INT 


OAMESS 


003052 


EXT 


DAYTMl 


001330 




DCOMA 


001545 




OEAERl 


000770 




OEASG 


0020^3 


INT 


OEAT 


001535 




OECLF 


0004;'6 


INT 


OEVATT 


001164 




OEVLK 


000727 


EXT 


OEVMOD 


000004 


INT 


OEVPMY 


000645 


EXT 


QISP 


000311 




DLYCMl 


001677 




OR 


000016 


INT 


QSKFGS 


0017f"6 


FXT 


nVMTA 


000020 


INT 



AC2 


000016 


INT 


ACTCHK 


001667 




ALOGNl 


000565 




ARCOM 


000621 




ASSASG 


001264 


FXT 


ASSFl 


000735 




ASSGl 


000665 




ASSG4 


000656 




ASSG7 


000701 




ASSPRG 


200000 


INT 


ATT3 


001224 




ATT6 


001242 




BUFPNT 


000012 


INT 


CBLANK 


001570 




CFINI 


001574 




CHKCOl 


000115 




CHKMED 


002425 


EXT 


CHKSTR 


000447 




CKSARG 


002756 




CLRWRO 


001371 


EXT 


CMPLF2 


002352 




CMWRQ 


002000 




COMCON 


000000 


INT 


COMER 


000134 




COMERL 


002003 




CQMFND 


000027 




COMMAN 


000000 


INT 


COMRTl 


000161 




CONFIG 


000175 


EXT 


CONDUT 


002023 




CONTCl 


001675 




C0R2 


000507 




CORE0 


002226 


FXT 


CPOPJ 


002220 


EXT 


CRLF 


002016 


INT 


CTEXl 


001730 




CTEXTl 


001723 


INT 


OAT 


000005 


INT 


DOOM 


00155'4 




noTGO 


000446 




nEAER2 


000776 




OEAS'^I 


:'<03757 




nECIN 


002071 


INT 


OECPl 


002770 


FXT 


HEVOAT 


0000716 


INT 


lEVLOG 


000005 


INT 


nEVNAM 


0000''0 


INT 


HEVSFR 


000073 


INT 


niSPL 


000057 




OLYCOK 


001676 


FXT 


nSER 


P<00011 


INT 


nvniRi 


400000 


I NT 


nVTT'' 


("00010 


nT 



AC3 


000017 


INT 


ADRERR 


002563 


FXT 


ANYACT 


001670 


FXT 


ARCOMl 


000622 




ASSCON 


400000 


INT 


ASSFIN 


000723 




ASSG2 


000676 




ASSG5 


000662 




ASSIGN 


000633 




ATTl 


001206 




ATT4 


001231 




ATTACH 


001136 


INT 


aUFWRD 


000013 


INT 


CCLRUN 


000570 




CFINS 


001577 




CHKC02 


000113 




CHKNO 


000041 




CHKXPN 


000125 




CL0G2 


000607 




CLSOUT 


000001 


INT 


CMPTHR 


002362 




CQM0 


000001 




COMDIS 


000143 




COMERl 


002010 




COMERP 


001777 


INT 


COMGO 


000137 




COMNEQ 


000024 




COMTAS 


000232 




CONMES 


002017 


INT 


CONT 


000463 




COR0 


000371 




C0R3 


r;005i2 




COREl 


? a 4 4 


:X^ 


CPOPJI 


002240 


-x^ 


CTEX 


001735 




CTEXA 


001747 




CTXCNC 


001753 




DAYTIM 


001312 




DCOMl 


001531 




OEAl 


002062 




DEASAL 


002060 


!NT 


OEASTY 


002060 


INT 


DECINI 


002071 


•NT 


DETACH 


001247 




DEVIOS 


000002 


'NT 


DEVLST 


002061 


rXT 


OEVUPR 


001561 


rXT 


OEVSRC 


002450 


rXT 


OLYCM 


001676 




GNAERR 


000011 


TNT 


OSKODB 


001705 


rXT 


TVObK 


200000 


INT 


FCOM 


001453 





COMCON 



• COMMAND DECODER AND SAVEGET ROUTINES 
SYMBOL TABLE 



V43;; 



MACRO, V3« 19102 *-JUN-69 PAGE 1IS6-1 



ECOHA 


0015515 




ERRMES 


802015 


' INT 


EXPCOR 


C02662 




EXPLP3 


B027CIB 




FDVl 


001607 




FT2REL 777777 777777 


INT 


FTDISK 777777 777777 


INT 


ETKCT 777777 777777 




FTREAS 777777 777777 


INT 


FTTIME 777777 777777 


INT 


GETARG 


002270 


' INT 


CETERR 


003003 


INT 


GETJOB 


002406 


INT 


GETWOU 


003035 


EXT 


HELPl 


000550 




MGHMRD 


002236 


EXT 


ILUERR 


000013 


INT 


INCORE 


024000 




lOBKTL 


040000 


INT 


lOOTER 


100000 


INT 


10TE^D 


002000 


INT 


IPOPJ 


002057 


EXT 


JBTAOR 


002215 


EXT 


JBTPRG 


002421 


EXT 


JERR 


020000 


INT 


JIFSEC 


002170 


EXT 


JOB 


002657 


EXT 


JOBCOR 


002541 


EXT 


JOBDOT 


002741 


EXT 


JOBFF 


002452 


EXT 


JOBKB 


000434 




JOBN 


001354 


EXT 


J0BPD3 


003042 


EXT 


J0BS41 


002531 


EXT 


JOBSni 


002731 


EXT 


JCBSV 


003067 


EXT 


JOBSVM 


002753 


EXT 


KJ0B2 


000422 




LOGDET 


000572 




LOGRFF 


000542 




LQP01A 


001661 




LOP05 


001630 




LSTWRD 


001377 


EXT 


MONTAB 


001337 


EXT 


NEWJOB 


000060 




NOCORE 


400000 




^40DATE 


0010:^0 




NOJGBN 


200000 




NOPER 


000100 




NOTOEV 


000770 


INT 


NROOMl 


002763 


INT 


NSRBIT 


400000 


INT 


Nxiow: 


002727 





ERNAM 


002477' 


EXT 


ESTOP 


001623* 


EXT 


EXPLPl 


002635' 




EXPNDl 


002633' 




FNFERR 


000000 


INT 


FTATTA 777 


777 777777 


INT 


FTEXAM 777777 777777 


INT 


FTtOGI 777777 777777 


INT 


FTSWAP 777777 777777 


INT 


FTTTYS 777777 777777 




GETCHR 


002144' 


EXT 


GETHGH 


002512' 


EXT 


GETMIN 


002221' 




GETWRO 


002234' 


INT 


HEUPPP 


000550' 


EXT 


HIGHJB 


000047' 


EXT 


IMGIN 


002213' 


EXT 


INLMES 


002026' 


INT 


lOOEND 


020000 


INT 


lOIMPM 


400000 


INT 


lOWBLT 


002733' 




ITEM 


000004 


INT 


JBTDAT 


000000 


EXT 


JBTSTS 


001674' 


EXT 


JIFMIN 


002174' 


EXT 


JLOG 


00000^4 


INT 


JOBl 


000375' 




JOBDA 


002225' 


EXT 


JOBEXM 


001536' 


EXT 


JOBHCU 


0027=51' 


EXT 


JOBKL 


000426' 


INT 


joapc 


001541' 


EXT 


JOBPFI 


001526' 


EXT 


JOSSA 


002426' 


EXT 


JOBSOO 


003066' 


EXT 


J0PSV3 


002615' 


EXT 


KIUHGH 


002224' 


EXT 


KSTQP 


000432' 


EXT 


LOGERl 


001305' 




LOGSIB 


0006('3' 


EXT 


LOP01B 


001653' 




LOP06 


301635' 




"ONJOB 


000424' 


EXT 


mstart 


002267' 


EXT 


NOACT 


040000 




MOCORQ 


000377' 


EXT 


NOFILE 


003012' 


IMT 


NOLOGI 


1CI0070 




NORQOM 


002764' 




MOTen'F 


002034 ' 


INT 


NSDERR 


000012 


INT 


NUMBIT 


001633' 


EXT 


OCT0 


002075' 





errflg 


000001 




EXPAND 


002602' 




EXPLP2 


002672' 




EXPZ 


002631' 




freoev 


001624' 




FTCCL 777777 777777 


INT 


FTFINI 777777 777777 


INT 


FTRC10 777777 777777 




FTTALK 777777 777777 


TNT 


GET 


000536' 




GETCOR 


002776' 


INT 


GETJ8 


002512' 




GETWQl 


002311' 


FXT 


HELP 


000554' 




HGHDEP 


001545' 


FXT 


lADRCK 


002455' 


FXT 


INCOR 


004000 




INPB 


010000 


INT 


lODERR 


200000 


INT 


lOS 


000000 


tNT 


lOWQ 


000000 


FXT 


JACCT 


100000 


INT 


JSTKCT 


001426' 


FXT 


JOAT 


000007 


iNT 


JIFSC2 


002171' 


FXT 


JNA 


H40000 


TNT 


J0B41 


H02532' 


FXT 


JOBDAC 


000000 


FXT 


JOBFOV 


001620' 


FXT 


J08KA 


(500430' 




JQBMAX 


000050' 


FXT 


JOBPDI 


003046' 


FXT 


JOBREN 


000444' 


rXT 


JUBSAV 


002636' 


FXT 


JOBSDP 


002744' 


FXT 


JOBSVD 


002745' 


FXT 


KJOB 


000410' 




LINSAV 


001703 ' 


FXT 


LOGERR 


000751' 




LOP01 


001645' 




LOP02 


001662' 




LOWFIN 


002533' 




MONSTR 


002436' 


FXT 


NECEHR 


(100010 


TNT 


NOCOM 


001673' 




NOCRLF 


000200 




NOINCK 


000400 




NOMESS 


000010 




NORUN 


P10000 




NOTRAN 


020000 




NSFERR 


000I,J07 


!NT 


NUMLOP 


000045' 




OCTIN 


002073' 


INT 
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OCTINil 


002073' 


INT 


PCORSH 


f000l(10 


EXT 


PDP 


000003 


INT 


PJOB 


0004H5' 


INT 


PLSXPN 


000004 


DLD 


PH0 


002156' 




PRNAME 


003020 ' 


EXT 


PRQM 


002030' 


INT 


PRT2LF 


002202' 




PRTIMl 


002174' 




PRTTIM 


001420' 




R 


000013 




REASEl 


001111' 




REASE4 


001113' 




REASE7 


001125' 




REASS2 


001071' 




REASSI 


001006' 


INT 


RELEA5 


001075' 


EXT 


RESET 


002437' 


EXT 


RUNl 


001413' 




RUNCHK 


001665' 




RUNCOM 


000625' 




SATENT 


001627' 


EXT 


SAVE 


000531' 




SAVHGH 


002320' 


EXT 


SEGSIE 


002213' 


INT 


SETEXl 


002304' 


EXT 


SGI 


002436' 




SG3 


002452' 


INT 


SGADAT 


000002 


INT 


SGAEND 


000004 


INT 


SGAHGH 


000016 


INT 


SGAMOD 


000010 


INT 


SGAPPN 


000007 


INT 


SGDOl 


002741' 




SGDGER 


002750' 




SGIOCK 


002570' 


INT 


SGRELE 


003030' 




SGSET 


002241' 




SKEDl 


001565' 




SKIPSl 


001757' 


INT 


SKIPSA 


001762' 




SKPBRK 


000222' 




SSAVE 


000532' 




STATES 


001565' 


EXT 


STOPB 


000462 ' 




STOPO 


001707 ' 




STUSER 


001665' 


EXT 


SYSPP 


001252' 


EXT 


T 


000012 




T3 


000015 




TACl 


000002 


INT 


TALKl 


001445' 





CCTRNT 


001566 


FXT 


cCRlF 


000200 




pHOlC 


003021 


EXT 


PJ08M 


^102043 


FXT 


PP0 


002116 




PRl 


002162 




PROG 


000007 


INT 


PRSPC 


002032 




PRTERR 


000002 


INT 


PRT [ME 


002146 


INT 


PUNIT 


001275 


EXT 


RADX10 


002212 


EXT 


REASE2 


001115 




REASE5 


001116 




PEASS 


001015 




REASS3 


001102 




REENTE 


000444 




RELEA6 


002056 


EXT 


RTIME 


001416 


FXT 


RUN2 


001360 




RUNCM 


000630 




RUNJ08 


002413 


INT 


SATXWD 


001625 


EXT 


SAVERR 


002400 


INT 


SAVjRl 


002322 




SENTSZ 


001635 


EXT 


SETEXT 


002254 


EXT 


SG2 


002437 


INT 


SG4 


002463 


INT 


SGADEV 


000011 


INT 


SGAEXT 


000001 


INT 


SGALEN 


000003 


INT 


SGANAM 


000000 


INT 


SGAREN 


000004 


INT 


SGD02 


002747 




SGERRl 


002504 




SGREL 


002542 


INT 


SGRELL 


003025 




SGSETl 


002265 




SKEDUL 


001555 




SKIPS2 


001770' 




SKPBPl 


000227' 




snoapg 


000443 




START 


000436 




STOP 


000454 




STOPr 


00171 4 




STOTiC 


003043' 


FXT 


SUP 


0020''0 


INT 


SYSTAP 


001577' 


FXT 


Tl 


000013 




T4 


000016 




TAKR 


001760' 


FXT 


TALK2 


001442' 





CUTCHS 


002031' 


rxT 


PCRLFl 


000213' 




OJBSTS 


000000 


rXT 


PJPGNO 


002117' 




PPl 


002126' 




PRJPRG 


001316' 


FXT 


DRPEP 


002041' 


INT 


PRT2 


002204' 




PRTHGH 


000513' 


rXT 


PRTSEG 


002210' 


INT 


PUUOAC 


002273' 


FXT 


RCOM 


000617' 




REASE3 


001121' 




REASE6 


001123' 




REASSI 


001026' 




REASS4 


001066' 




REFLAG 


000607' 


rXT 


REQUE 


000220' 


FXT 


RUN 


400000 


INT 


RUNCl 


000627' 




RUNC02 


000627' 




RUNTIM 


001350' 




SAVDMP 


002470' 


FXT 


SAVFIN 


002374' 




SAVJOB 


002314' 


iNT 


SETBFI 


002010' 


rXT 


SETRUN 


000212' 


FXT 


SG2A 


002440' 




SGACOR 


000014 


TNT 


SGADMP 


000013 


TNT 


SGAHED 


000012 


TNT 


SGALOW 


000017 


TNT 


SGANEW 


000015 


TNT 


SGDO 


002557' 




SGDOA 


002560' 




SGERRA 


002473' 


INT 


SGRELl 


002554' 




SGRLEl 


003050' 




SHFWRD 


001363' 


FXT 


SKIPS 


001756' 


!NT 


SKIPS3 


001773' 




SKPBR2 


000223' 




SPCHEK 


001764' 


rXT 


STAHTC 


000436 ' 




STQPl 


000461 • 


rXT 


STOPCK 


001705' 




STREO 


000703' 


rXT 


SYSDEV 


000100 


iNT 


SYSTAT 


000557' 




T2 


000014 




TAC 


000001 


iNT 


TALK 


001432' 




TEM 


000010 


INT 



COMCON 
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TEMPI 


eeizez 




TIME 


001346 


EXT 


TOOLOW 


002713 




TRNERR 


000006 


INT 


TTYATI 


000166 


EXT 


TTYCOM 


000000 


EXT 


TTYFNU 


000376 


EXT 


TTYRNC 


000020 




TTYTAB 


001277 


EXT 


TYOINS 


002023 




UGTERR 


002433 


INT 


URLIN 


002415 


INT 


USRHCU 


002;i66 


EXT 


USRRFL 


002540 


EXT 


UUCI 


000814 


INT 


VIRTAL 


000602 


EXT 


2ERSWP 


000400 


EXT 



TEMP2 


001304' 




TISYNC 


002011' 


EXT 


TPOPJ 


003002' 


EXT 


TSETBF 


001162' 


EXT 


TTYATT 


001157' 


EXT 


TTYDET 


001250' 


EXT 


TTYFUW 


002556' 


EXT 


TTYRNU 


000040 




TTYTLK 


001437' 


EXT 


UCHN 


000012 


INT 


UGTSEG 


002432' 


INT 


URUNl 


002422' 




USRJDA 


003044' 


EXT 


USRXIT 


003047' 


EXT 


UUOERR 


002435' 


EXT 


WOPJIF 


001372' 


EXT 



THSDAT 


001330' 


FXT 


TITAKR 


002004' 


fXT 


TRESCN 


002002' 


FXT 


TTIME 


001420' 


FXT 


TTYCM 


001704' 


FXT 


TTYFND 


001163' 


FXT 


TTYKIL 


000431' 


FXT 


TTYSTR 


000214' 


FXT 


TTYUSR 


000210' 


FXT 


UGETHI 


002432' 


FXT 


UPTIME 


001411' 


FXT 


USRDDT 


002565' 


FXT 


USRMOD 


010000 


INT 


USTART 


000447' 


FXT 


VCOMCN 


000433 


INT 


WLBIT 


001631' 


FXT 



A 


b# 


6 


























ACl 


&# 


6 


65 


169B 


1699 


17211 


17'"3 


1704 


25!?4 


2505 


2511 


2512 


2875 


2876 




2B77 


2878 


2879 


2880 


2B"1 


2884 


2899 


2900 


29C1 


29512 


2904 


2906 


2907 


2912 




2913 


2915 


2928 


2929 


2931 


2933 


2940 


2941 


2942 












1C2 


5# 


5 


66 


1229 


1230 


1233 


16P8 


1701 


1704 


2137 


2147 


2154 


2392 


2928 




2909 


2917 


2920 


2921 


2927 


2928 


2932 


2933 


2934 


2935 


2936 


2937 


2939 




4C3 


6# 


2843 


2644 


2845 


2846 


2858 


28»2 


2946 


2947 


2954 


2955 








ACTCHl 


1717 


1720# 


























ACTCHK 


1717# 




























AURERR 


56 


2810 


























AEFERR 


b» 


6 


























AL 


bH 


6 


























ALOGIN 


822 


841# 


889 
























ALOGNl 


574 


B49# 


























ANYACT 


55 


1718 


























ANVRIN 


2082 


2086# 


























ARCOM 


579 


830 


836 


860 


893 


900# 


















ARCOMl 


89B 


901# 


























ASGHGH 


1033 


1034 


2035 


2036 






















ASSASG 


55 


957 


967 


1330 






















ASSCON 


6# 


6 


119 


946 


948 


1164 


1329 


1690 


2032 


2040 










ASSERl 


958 


990# 


1351 
























ASSFl 


11522 


1027*' 


























ASSFIN 


956 


959 


969 


1010* 






















ASSGi" 


950# 


972 


























ASSGl 


952 


962# 


























tSSG2 


963 


968 


971# 
























ASSG3 


945 


948# 


























ASSGI 


947 


953# 


























ASSG5 


954 


957# 


























ASSG6 


930 


93 4 # 


























ASSG7 


933 


982# 


























ASSIGN 


470 


926# 


























ASSMS2 


1032 


1008« 


























ASSPRG 


6« 


6 


1136 


169i1 






















ATTl 


1218 


1272# 


1408 
























ATT2 


1240 


1276# 


























4TT3 


1235 


1283* 


























ATT4 


6P9 


1173 


1221 


1287# 






















ATT5 


1256 


1292# 


























ATT6 


1262 


1296# 


























ATTACH 


478 


125)3 


1206# 
























B 


bit 


6 


























BREAKB 


272 


1857 


1867 
























BUFPMT 


6# 


6 


62 


1781 


2077 


2365 


















BUFWRD 


6# 


5 


63 


1782 


2078 




















C 


2077# 


2365# 


























CBLANK 


459 


1614« 


























CCL.RUN 


488 


4«9 
659« 


490 


491 


492 


493 


494 


493 


496 


497 


498 


499 


502 


5cl 


CERR 


194 


6("6« 


























CFINI 


473 


1634# 


























CFINS 


677 


1637« 



























CHKACT 136 141* 

CHKCCll 167# 

CHKC02 152 154 165# 

CHKDL.Y 161# 183 

CHKMED 63a 631 1550 1551 2601 2(>03 

CHKNO 97 102* 

CHKRUN 102 134# 

CHKSTR 635 647 659*1 

CHKXPN 169 173* 

CKJOWD 2460 2746 2971* 

CKSARG 2765 2985* 

CLKR 6* 6 

CL0G2 881 635* 

CLOGIN 484 873* 

CLRWRD 14ai 1419 

CLSIM 6* 6 

CLSOUT 6* 6 2784 

CMPLPl 2499* 2513 

CMPLP2 2506* 2511 

CMPTHR 2501 2514* 

CMWB 6* 6 107 197 

CMWRO 196 220 262 307* 457 fl62 467 468 485 

COM0 69* 1723 

COMCNT 51 217 

COMCON 16 17* 

COHQIS 163 202* 

COMEND 3090* 

COMER 98 111 137 170 192« 

COMERl 1905 1909* 

COMERA 626 715 1111 1366 1405 lEi07 1535 1539 1548 1599 1882 1885* 2396 

COMERL 1903* 19t"7 

COMERP 1882 1884* 2145 2146 2149 2352 2153 

COMERR 1602 1628 1894 1897# 

COMFND 82 91* 

COMGO 104 168 174 177 196* 

COMLP 79* 88 

COMMAN 49 67* 

COMNEQ 84 86* 

COMRET 206* 

COMRTl 218 223* 

COMTAB 79 81 401* 449 

CDM0 1953* 1964 

CONFIG 52 235 

CONMES 236 1042 1388 1947 1951* 1973 1992 2011 3084 

CONMSl 1952* 

CONOUT 1956* 2212 

COMT 466 698* 

CONTC 476 693# 

COMTcl 1723* 1744 

COR0 527# 730 

CORl 720 730* 

C0R2 726 736* 883 

CaR3 714 742# 



CORCNT 


6» 


6 


























CORE 


462 


713* 


























CORE0 


55 


725 


2267 
























COREl 


56 


551 


























CORMAX 


756 


757 


























CPOPJ 


261 


527 


564 


1053 


1710 


1763 


2233 


2239 


224Z 


2244 


2725 








CPOPJl 


1755 


1768 


2022 


2075 


2101 


2103 


2200 


2302 


2639 












CP0PJ2 


2075 


2093 


2096 


2099 






















CRLF 


23B 


247 


559 


1455 


1608 


1708 


1933 


1936* 


2208 












CTEX 


1803 


18(?9* 


























CTEXJl 


18(?!0# 


1807 


























CTEXl 


1799 


1803* 


























CTEXA 


1810 


1815 


1819* 
























CTEXT 


71 


1778 


1785* 


2381 






















CTEXTl 


788 
2373 


798 


911 


926 


982 


1018 


1054 


1106 


1252 


1317 


1470 


1634 


1779 


178£ 


TTXCNC 


182a* 


1873 


























D 


6# 


6 


























UAMESS 


55 


1386 


1387 
























DAT 


6# 


6 


1798 


1861 


2499 


2512 


















DAYTIM 


479 


1361* 


























DAYTMl 


1363 


1365 


1369 


1378* 






















DCL 


6# 


6 


























DCLI 


btt 


5 


























OCLO 


6# 


6 


























nCLR 


t# 


6 


























DCOM 


^bl 


1533# 


























DCDMl 


1557 


1563# 


























□ COMA 


1562 


1679« 


























DUI 


6# 


6 


























DDn 


b» 


6 


























DOTGn 


472 


654# 


























0E«1 


?056# 


2060 


























OEAERl 


1«)58 


1054# 


1345 
























DEAER2 


1060 


1070# 


1182 
























DEASAL 


205k) 


2054# 


























DEASG 


1059 


1657 


2021 


?024# 


2057 




















DEASSI 


471 


10531* 


























OEASTV 


598 


1055 


2050 


2053* 






















DEAT 


161^6 


1563 


1569* 
























DECIN 


713 


1208 


1364 


14?^ 


2074 


20S1« 


















OECINl 


11("9 


2074 


2080* 


2394 






















DECLF 


555 


558# 


1005 
























DECPl 


56 


1381 


3001 
























DEN 


6« 


6 


























DETACH 


477 


1317# 


























DEVAHR 


6*1 


6 


























DEVATT 


1211 


1250« 


























DEVBUF 


bit 


6 


























DEVCHR 


btt 


6 


























DEVCTR 


bit 


6 


























OEVDAT 


btt 


6 


70 


120 


121 


207 


210 


212 


737 


938 


949 


950 


951 


971 




972 


974 


1000 


1010 


1016 


1024 


1027 


1028 


1030 


1039 


10415 


1064 


1070 


1071 





1133 


1139 


1140 


1142 


1149 


1152 


1153 


1155 


1158 


1162 


1165 


1187 


1188 


1241 




1258 


126'l 


1267 


1268 


1276 


1277 


1296 


1323 


1326 


1332 


1335 


1342 


1344 


1484 




1600 


1641 


1642 


1647 


1651 


1656 


1721 


1757 


1762 


1764 


1766 


1901 


1904 


1910 




20J9 


203:. 


2054 


2055 


2056 


2059 


2060 


2061 


2258 


2272 


2686 


2703 


2704 


2749 




2777 


27811 


2782 


2823 


3059 




















OEVEXT 


6# 


(1 


























OEVriL 


6# 


6 


























OEVIAO 


6# 


b 


























OEVIOS 


bit 


b 


1762 


2823 






















nEVLi; 


55 


1020 


























OEVLOG 


6# 


b 


121 


1010 


1028 


2031 


















OEVLST 


924 


949 


1664 


1587 


2051 


2055 


















DEVMOD 


6# 
3059 


6 


120 


1030 


1133 


1165 


1264 


1326 


1336 


1689 


2029 


2685 


2749 


2780 


DEVNAM 


6# 


6 


950 


951 


1039 


1270 


1187 


1276 


1600 


1598 


1766 








DEVO/iO 


6# 


6 


























OEVOPR 


1595 


1601 


























DEVPHY 


55 


944 


























DEVPPN 


6# 


I 


























DEVPTR 


6# 


t 


























OEVSER 


6i» 


t 


971 


1152 


1706 


1764 


2059 
















DEVSPC 


55 


1057 


1128 


1259 


1324 


1473 


1639 


2662 














OGF 


6* 


6 


























OHNG 


6# 


6 


























DIM 


6*1 


6 


























DINI 


6# 


6 


























DISP 


91 


455* 


























nisPL 


73 


449# 


























DLK 


6# 


6 


























DLYCM 


158 


733 


920 


1719 


1733# 




















DLYCMl 


161 


5B6 


681 


985 


1716 


174l# 


















DLYCnM 


56 


1733 


























PMT 


6« 


6 


























DN;SERR 


6» 


6 


2705 
























nou 


6# 


6 


























nn 


6« 


6 


2647 
























nHL 


6* 


6 


























n R s. 


6# 


6 


























nSTR 


6# 


6 


1152 
























nsi 


6# 


b 


























nSKDTB 


1755 


\T^-/ 


























nSKFRS 


1755 


1758 


























nsKRLB 


6« 


6 


























nso 


6# 


6 


























DVAVAL 


6# 


6 


























nVCDR 


6* 


6 


























lWn[q 


6« 


5 


























nVDIRI 


6« 


6 


1029 


2028 






















nvr-'IP 


6# 


6 


























ItM^jSx 


bf 


6 


1327 


1691 


26P7 


3260 


















OVOTft 


6# 


6 


























'IV IN 


btt 


6 


























nvLMC 


bf 


6 



























nVLPT 


6# 


6 


























DVMTA 


b» 


6 


2752 


2761 






















DVOUT 


6« 


6 


























DVPTP 


bit 


6 


























DVPTR 


b* 


6 


























DVTTY 


bit 


6 


1134 


1266 


1337 


1691 


















ECCM 


468 


1502# 


























ECOMA 


1512 


1583 


1586# 
























ENTR8 


6# 


6 


























ERNAM 


56 


2708 


























ERRFl.G 


22a 


244 


321# 
























ERRMFS 


6CI6 
1297 


562 
1353 


701 
1487 


870 

15B6 


1003 
1923 


1025 
1926# 


1065 
2001 


1073 


1190 


1272 


1279 


1283 


1287 


1292 


ESTOP 


56 


531 


589 


1159 


1659 




















EXPAND 


1B0 


2B09 


2843# 
























EXPCOR 


2893 


269B# 


























EXPLPl 


?87ti# 


2886 


























EXPLP2 


2906# 


2919 


























EXPLP3 


2912# 


2917 


























EXPNni 


2852 


2854 


2863 


2869 


2873# 


2948 


















EXPZ 


2865 


2B70# 


























FbMERR 


6# 


6 


























FDVl 


1647# 


1654 


























FNFERR 


6# 


6 


3033 
























FREOEV 


481 


1666# 


























FRGSFG 


6# 


6 


























FT2REL 


bf 


411 


465 


541 


511 


522 


525 


629 


537 


743 


784 


1032 


1549 


1580 




2034 


2262 


2294 


2298 


2367 


2383 


2431 


2464 


26!7'0 


2621 


2657 


2660 


272B 




FTATTA 


b# 


2ee 


423 


477 


1194 


1195 


13fl 


1302 














FTCCL 


1 0« 


2*^1 


434 


488 


855 


857 


















FTCHEC 


6# 




























FTTISK 


je# 


672 


678 


1667 


1693 


1748 


2367 


2685 


3058 












FTEXAM 


6# 


280 


413 


467 


1491 


1493 


















FTFIMI 


6# 


281 


4 19 


A7i 


1629 




















FTGETT 


6# 




























FTHALT 


bit 




























FTKCT 


btt 


127 


1447 


1457 






















FTLOGI 


lati 


bf 


94 


237 


240 


280 


428 


430 


431 


482 


4S4 


485 


568 


5 = 2 




b9A 


8?3 


816 


818 


826 


832 


842 


843 


866 


866 


928 


981 


121? 


1213 




1222 


1233 


1248 


1249 


1309 


1311 


1315 


1362 


1436 


1439 


1590 


21!"9 


2110 


2357 




239i) 




























FTf'OMP 


6« 




























FTPRV 


b» 




























FTRA10 


btt 




























FT»C10 


10# 




























FTRCHK 


6# 




























FTREAS 


5# 


2'^0 


431 


48t> 


1077 


1078 


10''2 
















FT9LFE 


6* 




























FTSW4P 


762 


50 
767 


147 
848 


162 
d7b 


l"? 
916 


258 

919 


5:<5 

2236 


573 


582 


716 


719 


728 


751 


765 


FTTALK 


bU 


28(J 


429 


483 


1466 


1467 


















FTTIME 


btt 


■50 


123 


28^ 


426 


480 


565 


593 


1394 


1395 


1661 








FTTRAC 


6# 





























FTTRPS 


6# 




























FTTTYS 


6# 


208 


267 


684 


689 


736 


9l?0 


937 


940 


973 


976 


991 


998 


1011 




1015 


12816 


1242 


1250 


1347 


1350 


1615 


1619 


1791 


1796 


1819 


1823 


1841 


1857 




1885 


1886 


1898 


1914 


1957 


1961 


1983 


1987 


2089 


2106 


2107 


2121 


2128 


2139 




2143 


2148 


2157 


2158 


2254 


2257 


2271 


2275 


2379 












GET 


463 


797* 


























GETARG 


2416 


2419# 


2591 
























GETCHR 


267 


274 


1797 


18510 


1825 


1857 


1859 


1363 


1886 


1903 


2107 


2158 






GETCOR 


2748 


2767 


2897 


3012 


3014# 




















GETERR 


3021 


3023# 


























GETHGH 


2729 


2730 


























GETJR 


2551 


2597 


2727# 
























GETJQB 


797 


2548 


255a# 
























GETMIN 


585 


731 


914 


2253# 






















GETWOl 


56 


2426 


2428 


2437 


2439 


2441 


















GETWDU 


56 


2424 


3069 
























GETWRD 


1511 


2289 


2292# 
























HELP 


486 


826# 


























HELP! 


819« 


827 


833 
























HEUPPP 


818 


820 


























HGHOEP 


1581 


1582 


























MGHMRD 


2295 


2296 


























HIGHJB 


52 


132 


133 
























HSAMSK 


6# 


6 


























HSAPOS 


6# 


6 


























HSASIH 


b# 


6 


























HUNGCT 


6« 


6 


























HU^'GST 

I 


6« 
6# 


6 

6 


























lAORCK 


2640 


2677 


























IB 


6# 


6 


























IBUFB 


bit 


6 


























ICLOSB 


b# 


6 


























ILM 


bH 




























ILUERR 


6# 


6 


2625 
























IMGIN 


223 7 


2238 


























INRFfl 


6# 


6 


























INCOR 


148 


153 


160 


29J« 






















INirORE 


296« 


456 


462 


464 


465 


466 


467 


468 


472 


473 


474 


4 75 


476 


4o5 




488 


489 


490 


491 


492 


493 


404 


495 


496 


497 


498 


499 


500 


5<:1 




5H2 




























I.NITP 


6» 


6 


























INLMrS 


23B 
1696 


739 
197e 


748 
1972« 


769 
2185 


1412 
2189 


1417 
22«"4 


14:>2 


1426 


1430 


1450 


1516 


1520 


1524 


16o3 


INP9 


bit 


6 


2782 
























10 


b# 


6 


























IU4CT 


6« 


6 


























lUSEG 


bit 


6 


























IQGKTL 


bit 


6 


2824 
























10«OT 


bit 


6 


























lOCOV 


6# 


5 
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